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Abstract : 


The  purpose  of  this  study  was  to  develop  an  Artificial  Intelligence 
Expert  System  to  detect  signals  in  a  range-Doppler  map  of  noise  and 
reverberation.  This  memorandum  documents  the  initial  phase  of  the  study, 
i.e.,  development  of  a  mathematical  representation  for  a  gain-controlled 
range-Doppler  map  capable  of  simulating  various  in-water  acoustic  background 
conditions . 

The  range-Doppler  map  representation  was  generated  by  an  algorithm 
written  in  COMMON  LISP  identified  as  RENSGEN.  RENSGEN  was  designed  to 
generate  a  range-Doppler  map  with  options  for  the  presence  of  signals, 
noise,  and  a  representation  of  reverberation  assuming  a  pulsed  pure  tone 
transmitted  signal.  A  simulated  range-Doppler  map  of  noise  and 
reverberation  generated  by  RENSGEN  is  shown  in  Figure  1. 

This  work  was  the  result  of  a  joint  effort  by  The  Applied  Research 
Laboratory  and  the  Mathematics  Department  of  The  Pennsylvania  State 
University.  Through  a  Mathematics  Work-Study  program,  they  provide  a  one- 
year  assistantship  to  University  seniors  majoring  in  Mathematics. 


-3- 


April  18,  1986 
JES : JW :mdp 


TABLE  OF  CONTENTS 

Page  No. 

Abstract  .  1 

Table  of  Contents  . . .  3 

List  of  Figures  .  4 

Int reduction  . 5 

REverberation,  Noise,  and  Signal  GENeration  .  8 

Appendix  A  -  RENSGEN  LISP  code  .  20 

Appendix  B  -  Sample  Interactive  Terminal  Sessions  ...  40 

Appendix  C  -  Sample  Output  Files  . . ••••••• . .  42 

Appendix  D  -  Three  Dimensional  Graph  Program  . .  46 

Appendix  E  -  Instructions  for  Using  the  VAX/LISP  ....  51 

Appendix  F  -  Interesting  LISP  Functions  . 54 

Appendix  G  -  Data  for  Generation  of  Figures  .........  57 

Appendix  H  -  References  •  •  •  . .  60 


-4- 


April  18,  1986 
JES : JW:ndp 


LIST  OF  FIGURES 

Figure  No.  Page  No. 

1  A  Simulated  Range-Doppler  Map  of  Noise  and  Reverberation  ....  2 

2  Measured  Reverberation  . . 6 

3  Simulated  Reverberation  .  6 

4  Constant-Level  Signals  . . 10 

5  Constant-Level  Signals  v/ith  Bar . 10 

6  Variable-Level  Signals  . . 11 

7  Signals  with  Noise  Background,  High  Signal/Noise  Ratio  ......  13 

8  Signals  with  Noise  Background,  Low  Signal/Noise  Ratio  .......  13 

9  Signals  with  Reverberation  . . 14 

10  Signals  with  Reverberation  and  Boundary  Returns  . .  15 

11  Signals,  Noise,  Reverberation,  and  Boundary  Returns  . .  16 

12  A  90-degree  Rotation  of  Figure  11  .  16 

13  Repositioned  Signals  . 18 


-5- 


April  18,  1986 
JES :  JU :mdp 


INTRODUCTION 

This  memorandum  reports  on  the  first  part  of  a  study  designed  to  apply 
Artificial  Intelligence  to  the  detection  of  acoustic  signals  in  the  presence 
of  underwater  noise  and  reverberation  environments. 

The  algorithm  this  memorandum  addresses  is  called  RENSGEN.  RENSGEN  is  an 
acronym  for  REverbe ration ,  Noise  and  Signal  GENeration.  As  the  name  suggests, 
RENSGEN  is  concerned  with  simulating  a  frequency  domain  representation  of 
noise  and  reverberation  to  be  used  in  the  study  of  signal  detection.  RENSGEN 
was  designed  to  simulate  the  range-Doppler  map  of  the  type  of  measured  data 
shown  in  Figure  2. 

The  subsequent  portion  of  the  study  deals  with  a  program  entitled  RENSID 
( REverberat ion ,  Noise  and  Signal  IDentif ication) ,  which  attempts  to 
characterize,  by  amplitude  and  location,  the  signals  generated  in  RENSGEN. 
RENSID  will  be  discussed  at  a  later  date. 

A  range-Doppler  map  is  a  three  dimensional  data  presentation  of 
successive  Fourier  transformed,  or  fast-Fourier  transformed,  tine  domain 
information  to  the  frequency  domain.  Frequency  is  generally  expressed  as 
Doppler,  relative  to  the  measuring  platform,  or  segmented  into  frequency  bins. 
Successive  Fourier  transforms  represent  increasing  time  which  may  be  converted 
to  range  separation  between  measuring  platform  and  acoustic  reflector. 
Elapsed  time  and  range  separation  between  source  and  reflector  are  related  by 
the  speed  of  sound.  Hence  the  name  range-Doppler  map. 

Figure  2  displays  reverberation  measured  from  a  moving  platform  with 
clearly  recognizable  surface  and  bottom  returns.  Figure  2  is  comparable  to 
the  approximation  generated  by  RENSGEN  in  Figure  3.  The  main  difference 
between  Figures  2  and  3  is  that  frequency  (or  frequency  bin)  and  the  time  (or 
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Figure  2.  Measured  reverberation 
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Fourier  transform  number)  scales  are  greater  in  Figure  3  by  a  factor  of 
approximately  two. 

RENSGEN  generates  range-Doppler  maps  by  one  of  two  methods.  The  first 
method  involves  random  placement  of  selected  signals  and  optional  addition  of 
noise  and  reverberation  environments.  The  second  method  uses  a  regeneration 
of  maps,  retaining  original  map  components,  but  changing  the  positions  of 
selected  signals,  i.e.,  the  simulation  of  reflector  motion. 

The  development  of  this  program  was  used  to  study  LISP  (a  language  of 
Artificial  Intelligence),  and  to  gain  knowledge  about  the  field  of  Artificial 
Intelligence  (AI),  Familiarization  with  LISP  and  AI  gained  during  the 
implementation  of  this  algorithm  was  applied  to  the  formulation  of  the 
subsequent  RENSID  algorithm. 
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REVERBERATION,  NOISE,  AND  SIGNAL  GENERATION 

The  REverberat ion ,  Noise  and  Signal  GENeration  algorithm  (hereafter 
referred  to  as  RENSGEN)  generates  simulated  range-Doppler  maps  to  provide  data 
for  a  signal  detection  algorithm  entitled  RENSID.  Each  execution  of  RENSGEN 
results  in  one  of  two  basic  methods  for  generating  a  range-Doppler  map.  The 
first  method  available  generates  a  new  range-Doppler  map.  The  second  method 
regenerates  a  map  bv  retaining  previous  map  background  components,  i.e.,  noise 
and  reverberation,  and  repositioning  the  simulated  signals  on  the  map.  The 
LISP  code  for  the  RENSGEN  algorithm  is  presented  in  Appendix  A. 

The  first  method  of  map  generation  produces  a  map  from  original  data. 
Prior  to  the  production  of  the  map,  data  specifying  the  desired  map  conditions 
must  be  supplied.  Samples  of  this  input  data  and  the  method  by  which  it  is 
attained  can  be  found  in  Appendix  B.  The  range-Doppler  map  may  include  (or 
exclude)  signals,  noise,  and  reverberation.  For  the  purpose  of  this 
memorandum  reverberation  has  been  divided  into  two  components:  (1)  boundary 
returns,  i.e.,  easily  distinguishable  returns,  both  single  and  multiple,  from 
the  air-water  surface  and  the  bottom  capable  of  being  measured  with  relatively 
wide  angle  acoustic  beams,  and  (2)  reverberation,  i.e.,  a  composite  of  volume 
and  boundary  reverberation  not  easily  separable.  The  map  may  contain 
constant-level  or  variable-level  signals  and  boundary  returns.  The  number  of 
each  type  of  signal  and  the  mean  amplitude  levels  for  all  components  are 
input • 

The  alternative  method  of  map  generation  is  to  produce  a  second-generation 
map,  that  is,  a  map  which  is  regenerated  from  a  previous  map.  The  new  map 
will  retain  all  of  the  components  of  the  first  map  (i.e.,  number  and  type  of 
signals,  presence  and  level  of  noise,  reverberation,  and  boundary  returns). 
The  difference  between  the  two  maps  will  be  in  the  positioning  of  the  signals. 
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Whereas  the  first  map  contained  signals  which  were  all  placed  on  the  map 
randomly  by  the  algorithm,  this  second-generation  repositions  selected  signals 
according  to  a  time-velocity  relation.  Any  signals  not  repostioned  in  this 
manner  will  again  be  randomly  placed  on  the  map.  (Note:  Random  components  of 
the  original  nap,  e.g.  noise  levels,  are  again  random  in  the  second- 
generation  nap.  However,  the  distribution  of  these  random  levels  are  centered 
around  the  same  previously  selected  mean.) 

The  RENSGEN  algorithm  has  the  capability  of  placing  seven  different 
signal  types  on  a  range-Doppler  map.  These  presently  available  signal  types 
are  demonstrated  in  Figures  4  and  5.  The  signals  selected  spell  the  word  LOT, 
for  the  person  in  Genesis  who  was  directed  not  to  look  back  on  the  "plains" 
where  he  lived,  but  look  forward  for  "new  sources  of  data."  The  types  are 
referred  to  as  L,  'fat1  L,  0,  'fat1  0,  T,  'fat'  T,  and  bar.  Note  the  portions 
of  the  'bar'  and  the  f0'  that  are  common  in  Figure  5  combine.  This 
combination  is  formed  by  using  the  square  root  of  the  sum  of  squares  of  the 
amplitudes  of  the  signals  involved.  Signals  can  appear  on  a  map  in  one  of  two 
forms;  constant-level  signals  or  variable-level  signals.  For  constant-level 
signals,  the  amplitude  of  each  cell  crossing  is  equal  to  the  mean  crossing 
level  (supplied  by  the  user).  Randomly  varying  signals  have  cell  crossing 
amplitudes  which  are  Rayleigh  distributed  about  the  mean  crossing  level. 
Figure  6  shows  the  constant-level  signal  configuration  of  Figure  4  with 
variable-level  signals  and  no  background  included. 

RENSGEN  is  capable  of  including  up  to  three  types  of  background  or 
noise-related  components  on  a  range-Doppler  map.  These  components  are  called 
'flat'  noise,  reverberation  (or  weighted  noise),  and  boundary  returns. 
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'Flat'  noise  to  be  added  to  the  map  is  generated  by  a  Raleigh  density 
function  about  a  user-supplied  mean  value.  An  example  of  a  range-Doppler  nap 
generated  with  a  high  (10:1)  mean  signal  to  noise  level  ratio  is  shown  in 
Figure  7.  Figure  8  shows  a  map  with  a  low  (4:1)  mean  signal  to  noise  ratio. 

Reverberation,  or  weighted  noise,  is  also  generated  by  a  form  of  the 
Raleigh  distribution.  However,  the  Raleigh  density  function  in  this  case  is 
altered  so  that  a  weighting  factor  can  be  introduced.  The  reverberation  is 
designed  to  peak  at  the  frequency  bin  value  of  32  which  is  defined  as  zero 
Doppler.  Figure  9  shows  a  map  with  signals  and  reverberation.  The  mean 
amplitude  of  the  reverberation  is  supplied  by  the  user.  The  user  also 
supplies  a  level  for  the  random  component  of  the  reverberation  (analogous  to 
'flat'  noise),  and  a  value  which  determines  the  shape  (width)  of  the 
reverberation  peak. 

Boundary  returns  can  be  included  on  the  range-Doppler  map  in  many  forms. 
Boundary  return  components  include  returns  from  the  surface,  the  bottom,  and 
various  combinations  of  surface  and  bottom  (e.g.,  returns  reflected  from  the 
surface  once  and  the  bottom  once  (S1B1),  the  bottom  twice  and  the  surface  once 
(B2S1),  etc.).  An  example  of  a  map  with  all  possible  boundary  returns 
implemented  in  RENSGEN  is  given  in  Figure  10.  Figure  11  demonstrates  a  map 
which  contains  all  signals  (excluding  the  bar)  and  noise- related  components 
that  RENSGEN  is  capable  of  producing.  Figure  12  shows  the  sane  data  shown  in 
Figure  1  1  with  a  90-degree  rotation  of  the  horizontal  plane  about  a  vertical 


1986 


axis . 
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Figure  7.  Signals  with  noise  background, 
high  signal  to  noise  ratio 


Figure  8.  Signals  with  noise  background, 
low  signal  to  noise  ratio 
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Figure  11.  Signals,  noise,  reverberation 
and  boundary  returns 
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A  second-generation  nap  is  produced  by  regenerating  a  previous  nap  with 
the  same  basic  components.  The  main  objective  in  the  second-generation 
process  is  to  estimate  the  change  in  position  of  the  signals  after  a  fixed 
time  interval.  The  positional  change  is  calculated  assumning  straight  line 
motion  by  the  acoustic  reflector  located  directly  in  front  of  the  measuring 
platform.  Signals  may  also  be  repositioned  in  order  to  eliminate  overlapping 
and  to  separate  from  excessive  interference.  The  second  nap  retains  the 
number  and  type  of  signals  in  the  original  map  as  well  as  levels  of  signals, 
noise,  reverberation  and  boundary  returns  whenever  appropriate.  The 
regeneration  process  does,  however,  generate  unique  values  for  individual  map 
cells  while  still  obeying  the  same  random  distribution  functions  of  the 
original  method.  The  second-generation  map  shown  in  Figure  13  was  regenerated 
using  Figure  4  as  the  previous  map.  In  this  example,  the  !fatf  L,  ffatT  T, 
ffatT  0  and  L  signals  were  repositioned.  (Note  that  the  Tfat!  T  is  no  longer 
visible  on  the  map,  having  moved  beyond  the  upper  limit  of  the  scale.) 

RENSGEN  is  run  in  an  interactive  LISP  environment.  Sample  interactive 
terminal  sessions  are  presented  in  Appendix  B.  The  samples  are  records  of 
actual  data  used  in  generation  of  Figure  11  and  Figure  13  (Method  1  and  2, 
respectively).  RENSGEN  creates  four  output  files  during  each  execution,  and 
uses  one  input  file  when  the  second-generation  method  is  selected. 

An  input  file,  CENTERS .LSP ,  is  used  when  a  specific  map  is  to  be 
regenerated.  This  file  contains  all  of  the  data  input  to  the  program  during 
the  original  generation  as  well  as  identification  and  location  of  each  signal 


present  on  the  map. 
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RENSGEN  creates  three  files  for  a  quick  look  at  the  resulting  output, 
SIGNALS. LSP,  READIN.LSP,  and  CENTERS. LSP  (See  Appendix  C).  A  fourth  file, 


PL0T3D.LSP, 

is 

also  created 

by 

RENSGEN  for 

the  purpose  of  computer  aided 

plotting. 

The 

file  stored 

in 

SIGNALS. LSP 

presents  either  a  quantized 

representation  of  the  signal  and/or  noise  level  values  or  a  representation 
that  shows  only  the  presence  of  a  signal.  The  files  stored  in  READIN.LSP  and 
PL0T3D.LSP  present  the  actual  signal  and/or  noise  level  values.  The 
READIN.LSP  file  is  to  be  read  and  used  in  the  RENSID.LSP  program,  designed  to 
identify  the  signals.  The  PL0T3D.LSP  file  is  to  be  read  and  used  in  the 
RDPLOT.FOR  program  to  produce  three-dimensional  graphs  of  the  range-Doppler 
map,  Appendix  D.  The  file  stored  in  CENTEPvS.LSP  keeps  a  record  of  the 
information  input  into  the  program  to  be  used  by  the  program  if  a  certain  map 
is  to  be  regenerated  with  specified  signals  repositioned. 

Additional  information  concerning  the  implementation  and  use  of  RENSGEN 
is  included  in  Appendices  E,  F,  G,  and  H.  Appendix  E  provides  instructions 
for  using  the  VAX/LISP.  Appendix  F  outlines  some  interesting  LISP  functions 
used  in  the  implementation  of  RENSGEN.  Appendix  G  lists  the  input  data  used 
in  generation  of  Figures  1  through  13.  Appendix  H  contains  references  used  in 


writing  RENSGEN. 
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APPENDIX  A 

RENSGEN  LISP  CODE 


21 
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APPENDIX  A 


LISP  Progrta:  RENSGEN . LSP 

AUTHDRSj  Jo«  Wakeley,  ARL/PSU 
and 

Jodi  E.  Sen tr ,  MATB/PSO 
REVISED:  27  February  IS 8 6 

REFERENCES:  (I)  wilensky,  Robert,  " LISPCRAFT , "  Unirerslty  of 

California,  Berkely,  W  w  Norton  L  Coapany,  1984 

(2)  Winston,  Patriot  H .  and  Born,  Berthold  K .  P., 
"LISP,"  Massachusetts  Institute  of  Techology, 

Add  1  son**  Wes  ley  Publishing  Conpany,  1981. 


(3)  Steele,  Guy  L. ,  "Coaaon  LISP 
Dlgltsl  Press,  1984 


The  Language, 


i  i  i  i  i  ;  i  i  i 


!  liiiiiiiitiii 


f  f  an 

( DEFUN 

REVERBERATION  ( ) 

;  FUNCTION  TD  READ  IN  DATA,  INITIALIZE, 

/  RUN  RENSGEN,  AND  SET  UP  OUTPUT  FILE 

' 

( SETQ  LDOK  (OPEN  “SIGNALS  LSP; 1M  iDIRECTION  sOUTPUT  :IF-EXISTS  : NEW-VERSIDN ) ) 

(SETO  REVIDEN  ( DPEN  "READIN . LSP; 1"  :DIRECTION  :DUTPUT  .  IF-EXISTS  t NEW-VERSIDN )  ) 

(SETQ  PLDT3D  (DPEN  M PLDT3D . LSP ; 1 "  ; DIRECTION  :DUTPUT  ilF-EXISTS  : NEW-VERSIDN ) ) 

;  OPEN  OUTPUT  FILE  LOOK  FDR 
/  QUANTIZED  SIGNAL  VALUES 

;  DPEN  OUTPUT  FILE  REVIDEN  FDR 
;  SIGNAL  VALUES  TD  BE  USED  IN  REVID 

;  DPEN  DUTPUT  FILE  PLDT3D.  FDR  PLOTTING 
;  SIGNAL  VALUES  WITB  REVPLOT 

(WRITE-CHAR  #\NEWLINE  LOOK )  ( WRI TE-CBAR  #\NEWLINE  LDDK ) 

(WRITE-CHAR  #\NEWLINE  LDDK)  ( WR ITE-CBAR  #\NEWLINE  LOOK) 

( WRI TE-CBAR  #\NEWLINE  LOOK)  ( WRITE-CBAR  #\NEWLINE  LDDK) 

( WRI TE-CBAR  #\NEWLINE  LOOK)  (WRITE-CBAR  f\NEWLINE  LOOK) 

,•  PUT  BLANK  LINES  IN  DUTPUT  FILE  LODK 
/  SD  DUTPUT  WILL  BE  CENTERED 

/  DN  PAGE 

(RESET) 

;  CALL  FUNCTION  TD  INITIAITE  VARIABLES 

( INITIAL) 

;  CALL  FUNCTIDN  TQ  INITIALIZE  IN_LINE_FT 

(TERPRI ) 

(PRINC  "Would  you  llfce  a  new  (N)  range-Doppler  map  or") 

(PRINC  "  will  this  be  a  second  (S)  generation  map?  [N/S]  " ) 

;  PRDMPT  TD  SET  TYPE  OF  MAP 

(COND  ((EQUAL  (READ)  ' S )  (REGEN)) 

(T 

( PRDMPT ) ) ) 

;  IF  REPEAT,  REGENERATE  MAP 
/  DR 

;  IF  NEW,  PRDVIDE  PROMPTS 

(WRITE  VALUE  "SIGNAL  MEAN  "  SIGS  PLACE  SIG  MU) 

(WRITE  VALUE  "REVERBERATION  MEAN  LEVEL  :  "  REV  WEIGHT  NDISE  REV  WN  MU) 

(WRITElVALUE  "FLAT  NDISE  MEAN  :  "  FLAT_NDISE  fR_MU ) 

;  WRITE  SIGNAL  MEAN  TO  FILE  REVIDEN 
;  WRITE  REVERB  MEAN  LEVEL  TD  FILE  REVIDEN 
;  WRITE  FLAT  NDISE  MEAN  TD  FILE  REVIDEN 

' 

(COND  ((EQUAL  QUANT  1) 

(WRITE_Q_VALUE  "QUANTIZED  SIGNAL  MEAN  :  "  SIGS_PLACE  SIG_MU) 

,■  WRITE  quantized  signal  mean 

;  TO  FILE  LDDK 

(WRITE  Q  VALUE  "QUANTIZED  REVERBERATION  MEAN  LEVEL: 

-  REV_WEIGHT_NDISE  REV_WN_MU  ) 

,  WRITE  QUANTIZED  REVERBERATION 
;  MEAN  LEVEL  TD  FILE  LOOK 

' 

(  WR I TE_Q_VALUE  "QUANTIZED  FLAT  NDISE  MEAN  :  "  FLAT_NDISE  FN_MU))) 

;  WRITE  QUANTIZED  WEIGRTED  NDISE 
;  MEAN  TQ  FILE  LDDK 

(SET  SIGS  SET  NUM  FL  SET  NUM  FD  SET  NUM  FT 

SET_NUM_L  SET_^UM_5  SET_NCM_T  SET_NUM_B) 

;  CALL  SET  SIGS  FUNCTION  TO 

EXECUTE  PROGRAM 

(BDUND_WRITE  MIDDLE  BDUND_GEN) 

(WRITE  CEN_S I G  : STREAM  MIDDLE) 

,  CALL  BOUND  WRITE  FUNCTIDN  TO 

WRITE  TD  FILE  MIDDLE 
;  WRITE  CEN_S IG  TD  FILE  MIDDLE 

(CLDSE  LDDK) 

(CLDSE  REVIDEN) 

(CLDSE  MIDDLE) 

(CLOSE  PLDT3D) ) 

,  CLDSE  DUTPUT  FILE  LOOK 

CLDSE  DUTPUT  FILE  REVIDEN 

CLOSE  DUTPUT  FILE  MIDDLE  ( DPEN  ED  IN  REGEN) 

,  CLDSE  OUTPUT  FILE  PLDT3D 

i  i  i  i  i  i  i  i  i  i  t  i  i  i  i  i  i  i  i  i  i  /  i  i  i  i  {  i  i  t  i  i  i  i  i 

INITIAL  CONDITIONS  I 


Siiiiiiiifiii 


r  i  i  i  i  i  *  i  i  i  i  i  {  i  i  i  i  i  i  i  i  i  i  i  i  f  i  i  i  i  i  i  i  i  i  i  i  i  i  1 1 1 1  i  i  i 


(DEFUN  INITIAL  () 

PROG  (GENER  KOUNT  COUNT) 


<F 


( SETQ  GENER  ( ) ) 

( SETQ  KOUNT  0) 

(SETQ  COUNT  0) 

( SETQ  IN  LINE_FT  ( ) ) 


(SETQ  COUNT  0) 

(SETQ  KOUNT  (♦  KOUNT  I)) 
(SETQ  ROS  (•  KOUNT  100)) 
(GENSYM  ROS) 


(COND  ( ( >  KOUNT  40 ) 

(SETQ  IN  LINE  FT  (REVERSE  IN_LINE_FT ) ) 
(RETURN  TN  LlSE_FT)  ) 

(T  (GO  LOOP!) ) ) 


(SETQ  COUNT  (+  COUNT  1)) 

(SETQ  GENER  (GENSYM  “C“ ) ) 

(SETQ  IN_.LINE_.FT  (CONS  GENER  IN_LINE_FT )  ) 

( CQND  ((>  COUNT  63  )  (GO  LOOPI)) 

( T  (GO  LOOP 2 ) ) ) ) ) 


,•  FUNCTION  TO  ADDRESS  40  CONSECUTIVE  (4  POINT 
/  FOURIER  TRANSFORMS  CALLED  IN_LINE__rT 


LOOP  TO  SET  UP  ROW  NUMBERS 

RESET  COLUMN  COUNTER 
INCREMENT  ROW  COUNTER 
SET  ROS  TO  100  •  NUMBER  OF  ROWS 
START  GENERATOR  AT  VALUE  OF  ROS 

IF  ALL  40  ROWS  GENERATED, 
REVERSE  IN_LINE_FT 
RETURN 

OTHERWISE,  CONTINUE  AT  LOOP2 


INCREMENT  COLUMN  COUNTER 
GENERATE  A  VALUE  WITH  THE  PRETIX 
ADD  THE  VALUE  TO  IN_HNE_FT 


IF  ALL  64  ARE  DONE, 
IF  NOT,  REPEAT 


GQ  TQ  LOOPI 


i  i  i  i  i  i  t  f  i 


t  i  i  {  i  i  t  i  i  i  1 1  i  f  i  i  (  i  {  i  t  i  t  i  i  (  i  i  t  i  i 

INITIAL  CONDITIONS  II 


f  i  i  i  i  i  {  t  i  i  i  i  t  i  i  t  i  i  t  i  f  i  i  i  i  i  i  i  i  i  i 


(DEFUN  RESET  ( ) 


(SETQ  SIG  FL  ' ( ) ) 

(SETQ  SIG~FO  ' ( ) ) 

(SETQ  SIG  FT  ' ( ) ) 

(SETQ  SIG  L  ' ( ) ) 

(SETQ  SIG"0  * ( ) ) 

( SETQ  SIG~T  * ( ) ) 

(SETQ  SIG_B  ' ( ) ) 

( SETQ  LOT  SIGS  1 ( ) ) 

( SETQ  ADD"SIGS  * ( ) ) 

(SETQ  CEN_SIG  • ( ) ) 

( SETQ  MID  SIG  ' ( ) ) 

(SETQ  NUMBER  *  1 ) 

(SETQ  YES  STARS  9) 

(SETQ  NO_5TARS  1) 

(SETQ  OU TP UT_LI ST  ()) 
(SETQ  OUTP UT_FI LE  ()) 
(SETQ  QUTPUT"FILE1  ()) 

(SETQ  COUNT  0) 

(SETQ  KOUNT  0) 

(SETQ  SET_NUM_FL  0) 

(SETQ  SET_NUM_FO  0) 

(SETQ  SET_NUM_TT  0) 

(SETQ  SET_NUM_L  0) 

(SETQ  SET_NUM_0  0) 

(SETQ  SET  NUM_T  0 ) 

(SETQ  SET~NUM_B  0) 

(SETQ  SIGS  PLACE  0) 

(SETQ  REV  WEIGRT_NOISE  0) 
(SETQ  FLAT  NOISE  0) 

(SETQ  BOUNl5_FLAG  0) 

(SETQ  S I G_MU  0) 

(SETQ  REVWN  MU  0) 

(SETQ  REV_ALPBA  0) 

(SETQ  REV  ALPBA2  0) 

(SETQ  FN_MU  0) 

(SETQ  BD_VAL_SQ 


BD~VAL_SQ  0) 

( SETQ  QUANT  0) ) 

i  i  i  t » t  i  f  t  *  i  t  i  i  i  *  t »  i  i » 


FUNCTION  TO  RESET  VARIABLES  TO  RUN 
THE  PROGRAM 


L  SIGNALS 
O  SIGNALS 
T  SIGNALS 


'  FAT 
•  FAT 
'  FAT 

L  SIGNALS 
O  SIGNALS 
T  SIGNALS 
B  SIGNALS 

ALL  SIGNALS 

ADDITIONAL  SIGNALS  REPOSITIONED 

LIST  OF  SIGNAL  SHAPES  AND  CENTERS 

NEWLY  GENERATED  SIGNAL  AND  CENTER 
NUMBER  QF  SIGNALS  TO  REPOSITION 

ELEMENT  FOR  OUTPUT  FILE 
ELEMENT  FQR  OUTPUT  FILE 

OUTPUT  LIST  FOR  FILE  LOOK 
OUTPUT  LIST  FOR  FILE  REVIDEN 
OUTPUT  LIST  FIR  FILE  PLOT3D 

COUNTER  FOR  OUTPUT  FILE  LOOK 
COUNTER  FOR  OUTPUT  FILE  REVIDEN 

VARIABLES  TO  READ  IN 

DESIRED  NUMBER  OF  SIGNALS 
OF  EACB  TYPE 


FLAG  TO  PLACE  SIGNALS 

FLAG  TO  PLACE  WEIGHTED  NOISE 

FLAG  TO  PLACE  NOISE 

FLAG  TO  PLACE  BOUNDARY  CONDITIONS 
VALUE  FOR  SIGNAL  MEAN 

VALUE  FOR  REVERB  WEIGRTED  NOISE  MEAN 
VALUE  FOR  SBAPE  OF  REVERB  WEIGBT  NOISE 
VALUE  FOR  REVERB  RANDOM  COMPONENT 
VALUE  FOR  FLAT  NOISE  MEAN 
VALUE  FOR  BOUNDARY  RETURN 


FLAG  TO  QUANTIZE 


i  i  i  i  t  i  i  f  t  f  i 


i  i  i  i  }  i  i  i  i  i  i  i  i  *  i  •'  i  i  i  t  *  i  i  i  i  *  i  i  i  i  i  i  i  i  i  i  /  t 


iiiitiiiiiiiiiliiiiiiifiitiiiiiiiiiiiiiiiiii 

(DEFUN  WRITE_VALUE  (T0_WRITE  ID_FLAG  XVALUE) 

(WRITE  TD_WRITE  : STREAM  REVIDEN) 

(COWD  ((EQUAL  ID  FLAG  1) 

(WRITE  XVXLUE  .STREAM  REVIDEN) 

(T 

(WRITE  '0  : STREAM  REVIDEW))) 

(WRITE-CHAR  |\NEWLINE  REVIDEN)) 


i  '  i  i  i  i  i  i  i  i  i  i  i  *  i  i  i  i  t  i  i  i  t  i  i  {  i  i  {  4  i  i  i  H  i  ,  i  i  i  i 

FUNCTION  TD  WRITE  READING  AND  VALUES 
TO  FILE  REVIDEN 

WRITE  HEADING  TO  REVIDEN 

WRITE  VALUE  TO  REVIDEW 


SKIP  A  LINE 


•  »»»#•*#  iiiiiiitii.iiii  f 


i  »  *  i  *  ;  i  i  i  i  i  i  t  f  i  i  i 


(DEFUN  WRI TE_Q_VALUE  (TD_WRITE  ID_FLAG  VALUE_MU) 

(CDND  ( ( EOUAL  ID  FLAG  1)  (WRITE  TD  WRITE  : STREAM  LOOK) 

( SETQ  QXVXLUE  (+  (TRUNCATE  (/  VALUE_MU  32))  1)) 
(WRITE  QXVALl’E  :  STREAM  LDDK) 

(WRITE-CHAR  I \NEWLINE  LDDK)))) 


FUNCTION  TD  WRITE  HEADING  AND  VALUES 
TD  FILE  LDDK 


iiiiiiiiiiiiiiiiiiiiiiiliiiitiitiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiil 


i  i  •  »  i  i  i  i  i  i  i  i  i  i  t  i  i  t  i  i  i  i  t 


iiiiiiiiiiiiiiiiiiliiittiitiiitiiittttiiitiiiiiiiiiii 


i  i  i  i  i  i  i  i  i  i  i  l  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  ;  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  1 1  i  i  i  i  t  i  i  i  I  i  i  i  i  i  i  i  i  i  i  1 1  i  i  i 


(DEFUN  REGEN  ( ) 


(SETQ  INPUT  (OPEN  "CENTERS . LSP " ) ) 


(MAKE-PATHWAME  i VERSION  .NEWEST) 

(SETQ  SIGS  PLACE  (READ  INPUT)) 

(CDWD  ((EQUAL  SIGS  PLACE  1) 

(SETQ  SET  NUM  FL  (READ  INPUT)) 

(SETQ  SET”NUM  FD  (READ  INPUT)) 

(SETQ  SET”NUM  FT  (READ  INPUT)) 

(SETQ  SET  NCM~L  (READ  INPUT)) 

(SETQ  SET  NUM_0  (READ  INPUT)) 

(SETQ  SET^NUM  T  (READ  INPUT)) 

(SETO  SET~NUM_H  (READ  INPUT)) 

(SETQ  SIG“MU  (READ  INPUT)) 

(SETQ  RAN_SIG_LEV  (READ  INPUT)))) 

(SETQ  FLAT  NDISE  (READ  INPUT)) 

(SETQ  FN  MU  (READ  INPUT)) 

(SETQ  REV_WEIGHT  NOISE  (READ  INPUT)) 

(SETQ  REV_WN  MU  (READ  INPUT)) 

(SETQ  REV_ALPRA  (READ  INPUT)) 

(SETQ  REV  ALPHA2  (READ  INPUT)) 

(SETO  OUANT  (READ  INPUT)) 

(BOUND  READ  IWPUT) 

(SETQ  CEN  SIG  (READ  INPUT)) 

(CLOSE  INPUT) 

(SETO  MIDDLE  (OPEN  "CENTERS  .  LSP ;  1  “  :DIRECTIDW  -.DUTPUT  -.IF-EXISTS  ,-NEW-VERSIDW  )  ) 


(WRITE 

(CDND 


STREAM  MIDDLE)  (WRITE-CHAR  »\WEWLINE  MIDDLE) 


(WRITE 
(WRITE 
(WRITE 
(WRITE 
( WRITE 
(WRITE 
(WRITE 


SIGS  PLACE 

( ( EQUAL  SIGS  PLACE  1) 

(WRITE  SET  S?UM_FL  : STREAM  MIDDLE)  (WRITE-CHAR  l\NEWL INE  MIDDLE) 

(WRITE  SET  NUM_FD  : STREAM  MIDDLE)  (WRITE-CHAR  *\NEWLINE  MIDDLE) 

(WRITE  SET  WUM_FT  : STREAM  MIDDLE)  (WRITE-CHAR  *\NEWLIWE  MIDDLE) 

(WRITE  SET  NUM  L  : STREAM  MIDDLE)  (WRITE-CHAR  ♦\NEWLINE  MIDDLE) 

(WRITE  SET- WUM  D  : STREAM  MIDDLE)  (WRITE-CRAR  #\NEWLINE  MIDDLE) 

(WRITE  SET“NUM~T  : STREAM  MIDDLE)  (WRITE-CRAR  #\WEWLINE  MIDDLE) 

(WRITE  SET-NUM~H  -.STREAM  MIDDLE)  (WRITE-CHAR  *\WEWLINE  MIDDLE) 

(WRITE  SIG-MU  “  : STREAM  MIDDLE)  (WRITE-CHAR  *\NEWLINE  MIDDLE) 

(WRITE  RAN  SIG  LEV  •.  STREAM  MIDDLE)  (WRITE-CHAR  #\NEWLINE  MIDDLE))) 

FLAT  NOISE"  -  STREAM  MIDDLE)  (WRITE-CHAR  l\NEWLINE  MIDDLE) 

FW  MU  : STREAM  MIDDLE)  (WRITE-CHAR  f \NEWLINE  MIDDLE) 

REV  WEIGHT  NDISE  : STREAM  MIDDLE)  (WRITE-CHAR  #\NEWLINE  MIDDLE) 

REV'WN  MU  "  : STREAM  MIDDLE)  (WRITE-CHAR  #\NEWLINE  MIDDLE) 

REV"alPHA  : STREAM  MIDDLE)  (WRITE-CHAR  ♦\NEWLINE  MIDDLE) 

REV~A LPH A 2  :STREAM  MIDDLE)  (WRITE-CHAR  l\NEWLIWE  MIDDLE) 

QUA5JT  -STREAM  MIDDLE)  (WRITE-CHAR  l\NEWLINE  MIDDLE) 


(REPOSITIDN_SIGNAL_PRDMPT) ) 


;  FUNCTION  TD  REGENERATE  SIGNALS  FROM 
ANDTHER  MAP 

i  READ  DATA  FROM  FI LE  CONSTRUCTED  IN  PROMPT 
;  FUNCTION  DURING  PREVIOUS  RUN  DF  PRDGRAM 


;  CALL  HDUND_RE AD  TO  PROMPT  FDR 
^  BOUNDARY  RETURNS 
CLOSE  FILE  FDR  INPUT 

;  DPEN  DUTPUT  FILE  MIDDLE  TD  STDRE 
;  REGENERATION  INFORMATION 


;  WRITE  DATA  HACK  INTO  FILE 


CALL  FUNCTION  TD  PRDMPT  FDR  REPDSI TI DNING 


i  i  i  i  i  i  f  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  S  i  i  i  i  i  f  i  i  i  i  i  i  i 


i  {  i  i  i  i  i  t  i  i  i  i  i  i  i  i  i  i  i  i  i  i  •  i  i  i  i  i  i  i  i  i  i  i  i  i  i 
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;  i  i  i  ;  i  i  i  i  4  i  i  t  i  t  i  i  i  i 


•  »  »  i  i  i  4  i  i  i  i  i  *  *  »  i 


44  4  44444444444444  4  4  44444444  4  44444444444444 


(OEFUN  REPOSITION_SI GN  A L_ PROMPT  () 

(CONO  {(EQUAL  SIGS_PLACE  1) 

(PRINC  "The  last  ring*  Ooppler  aap  had  these  slgoili  and  ctntar  value*: 
(TERPRI ) 

(PRINC  CEN  SIG) 

(TERPRI) 

(PRINC  "How  aany  of  these  signal*  ir«  to  be  repositioned?  ") 

{ SETQ  NUMBER  ( RE AO ) ) 


FUNCTION  TO  PROMPT  FOR 
SIGNALS  TO  REPOSITION 


PROMPT  TO  RE AO  NUMBER  OF  SIGNALS  TO 
BE  REPOSITIONEO 


(GENERATE  NUMBER))) 

(SET  * CEN _S IG  M I 0_ SIG)) 


CALL  TO  FUNCTION  GENERATE 

AOO  REGENERATED  SIGNALS  ANO  CENTER  VALUES 
TO  CEN  SIG 


4444444444444444444444444/4444444444444444444444444444444444444444444444444444444 

(DEFUN  GENERATE  (NUMB) 

(PROG  (ANS) 

LOOP 

(COND  ({EOUAL  NUMB  0)  (RETURN  NUMB)) 

4 

(T 

(SETQ  PARAM  ( ASK_REGEN ) ) 

(SETQ  ANS  (CAR  PARAM)) 

(SETQ  TIME_CHANGE  (CDR  PARAM)) 

(CONO  ((EQUAL  (CAR  ANS)  ’FL) 

(SETQ  SET  NUM  FL  (-  SET  NUM  FL  1)) 

(UP^OATE  5ETjiUM_FL  1  PLXCE_5lG_FL  '  FL )  ) 

({EQUAL  (CAR  ANS)  * FO ) 

(SETO  SET  NUM  FO  (-  SET  NUM  FO  1 ) ) 

( UP_DATE  5ET_RUM_FO  ' PLACE_5lG_FO  ' FO ) ) 

({EOUAL  (CAR  ANS)  *  FT ) 

(SETQ  SET  NUM  FT  (-  SET  NUM  FT  1 ) ) 

( UP_DATE  5ET_RUM_FT  ‘ PLXCE_5lG_FT  'FT)) 

{{EQUAL  (CAR  ANS)  *  L ) 

(SETO  SET  NUM  L  {-  SET  NUM  L  1)) 

( UP_DATE  5ET_SUM_L  ' PLXCE_5lG_L  'L)) 

({EQUAL  (CAR  ANS)  'O) 

(SETQ  SET  NUM  O  {-  SET  NUM  O  1)) 

{ UP_DATE  SET_f?UM_0  '  PLXCE_5lG_0  ’O)) 

({EOUAL  (CAR  ANS)  'T) 

(SETQ  SET  NUM  T  (-  SET  NUM  T  1)) 

{ UP_OATE  5ET_SUM_T  'PLXCE_5lG_T  ’T)) 

({EQUAL  (CAR  ANS)  'B) 

(SETQ  SET  NUM  B  (-  SET  NUM  B  1)) 

(UP_DATE  5ET_RUM_B  PLXCE_5lG_B  'B)) 

(T 

(SETQ  NEW  { ) ) 

(SETO  NUMB  (+  NUMB  1)))) 

(SETQ  MIO  SIG  (CONS  NEW  MID  SIG)) 

(SETO  NUMS  {-  NUMB  1) ) 


;  i  1 1  i  i  t  i  i  i  i  i  i  i  i  i  t  i  i  i  1 1  i  t  i  i  4  i  1 1 1 1  i  i  i  i  i  i  t  i  t  i  1 1 1  i  i  i  i 

i  FUNCTION  TO  GENERATE  NEW  POSITIONS 
i  FOR  SELECTEO  SIGNALS 


i  WHEN  ALL  SIGNALS  REPOSITIONEO,  QUIT 


SET  UP  GEOMETRY  RELATIVE  TO  PREVIOUS 

RANGE  OOPPLER  MAP  ANO  RETURN  OESIRED 
SIGNAL  TO  REPOSITION  ANO  TIME  CHANGE 
GET  ANSWERS  FROM  REGEN 

QUERY  TO  REPOSITION  SIGNALS 

IF  SIGNAL  TO  BE  REPOSITIONED  IS  A  'FAT*  L , 
TAKE  1  FROM  FL  COUNTER 

CALL  UPOATE  FUNCTION  TO  AOD  NEW  SIGNAL 

IF  SIGNAL  TO  BE  REPOSITIONEO  IS  A  'FAT*  O, 
TAKE  1  FROM  FO  COUNTER 

CALL  UPOATE  FUNCTION  TO  AOD  NEW  SIGNAL 

IF  SIGNAL  TO  BE  REPOSITIONEO  IS  A  'FAT'  T, 
TAKE  1  FROM  FT  COUNTER 

CALL  UPDATE  FUNCTION  TO  AOO  NEW  SIGNAL 

IF  SIGNAL  TO  BE  REPOSITIONED  IS  AN  L , 

TAKE  1  FROM  L  COUNTER 

CALL  UPOATE  FUNCTION  TO  ADD  NEW  SIGNAL 

IF  SIGNAL  TO  BE  REPOSITIONEO  IS  AN  O, 

TAKE  1  FROM  O  COUNTER 

CALL  UPOATE  FUNCTION  TO  AOD  NEW  SIGNAL 

IF  SIGNAL  TO  BE  REPOSITIONEO  IS  A  T, 

TAKE  1  FROM  T  COUNTER 

CALL  UPOATE  FUNCTION  TO  ADO  NEW  SIGNAL 

IF  SIGNAL  TO  BE  REPOSITIONEO  IS  A  BAR, 

TAKE  1  FROM  B  COUNTER 

CALL  UPDATE  FUNCTION  TO  AOO  NEW  SIGNAL 

IF  SIGNAL  TO  BE  REPOSITIONEO  IS  INCORRECT, 
SET  NEW  TO  NIL 

AOJUST  COUNTER  TO  ITERATE  AGAIN 

AOO  NEW  SIGNAL  AND  CENTER  VALUE 
OECREASE  NUMBER  OF  SIGNALS  TO  REPOSITION 


(GO  LOOP) ) ) ) ) 
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4  i  t  •  i  4  i  i  i  t  i  4  4  i  i  i  i 


44444444 


( OEFUN  ASK_REGEN  () 


(TERPRI ) 

(PRINC  "  Enter  a  signal  to  reposition,") 

( PRINC  "  as  it  appears  shore.  ") 

(TERPRI ) 

( SETQ  ANS  ( REAO) ) 

(PRINC  "  Eater  the  desired  tiae  change  ( sec ) . " ) 

(SETQ  TIME_CHANGE  ( KEAO) ) 

(SETQ  CENTER  (CADR  ANS ) ) 

(SETD  Y  (TRUNCATE  (/  CENTER  64))) 

(SETD  X  (-  CENTER  (*  Y  66))) 

(SETQ  Y  (-  Y  (TRUNCATE  (/  (•  TIME^CHANGE  (-  X  12))  18.75)))) 
(SETD  NEW  CENTER  (♦  (•  64  Y)  X)) 

(SETD  NEW“CENTER  B  (TRUNCATE  (/  NEW  CENTER  64))) 

(CONS  ANS  TIME  CflANGE)) 


FUNCTION  TO  PROMPT  TOR  SIGNAL  ANO  TIME 
CHANGE,  ANO  FIND  NEW  COORDINATES 


PROMPT  FOR  SIGNAL  TO  BE  REPOSITIONEO 
REAO  ANSWER 

ENTER  ELAPSEO  TIME  SINCE  PRECEEOING 
RANGE  OOPPLER  MAP 


SET  CENTER  VALUE 


SET 

SET 


Y  COORDINATE 
X  COOROIN ATE 


COMPUTE  NEW  Y  COORDINATE 
COMPUTE  NEW  CENTER  FOR  SIGNALS 
COMPUTE  NEW  CENTER  FOR  BAR 
RETURN  VALUES  OF  ANS  ANO  TIME  CHANGE 


i  i  i  i  i  i  »  i  4  i  » •  i  i  •  i  i  i  i  i  •  •  i  i  i  •  t »  i  i  i  i  i  i  i  i  t  i  i  i  i  i  i  i  i  t  i  i  i  i  i  i  •  i  i  •  h  i  •  i  i  i  i  •  i  i  i  i  i  i  i  i  i  i  •  i  i  i  i  i  i  i  i  i  i  i  t  i  i  i  i  i  i  i  i  i  i  i  •  i  '•  i  i  i  i  •  i  •  i  i  i  i  i  i  i  i  i  i  i  i  ,  ,  i  i  t  i  t  i  1 1 1 

(DEFUN  UP_OATE  (SET_NUM_ID  PLACE_SIG_ID  ID)  i  FUNCTION  TO  ADO  REPOSITIONEO  SIGNALS 

( CDND  ((EQUAL  ID  ’H)  ;  ADJUSTMENT  FOR  BAR  SIGNAL 

(SETQ  ID  CENTER  NEW  CENTER  H)) 

(T  " 

(SETQ  I 0_CENTER  NE W_CENTER ) ) ) 

(SETQ  AOO  SIGS  (APPEND  (FUNCALL  PLACE_SIG_ID  1 0_CENTER )  AOO  SIGS))  ,-  AOD  NEW  SIGNAL  TO  AOD  SIGS 

(SETD  NEW-  ( CONS  ID  (CONS  I  OOCENTER  '(7)))T  ~  ,•  ADD  LISTING  OF  NEW  SIGNAL  TO  NEW 


i  i  i  i  4  i  i  i  t  •  i  i  i  i  4  t  4  4  i  i  i  i  i  i  i  4 


44444444444444444444444444 


444444444444444444444 


444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444 


(DEFUN  PROMPT  () 

(SETQ  MIDOLE  (OPEN  "CENTERS . LSP; 1 "  :OIRECTION  rOUTPUT  :IF-EXISTS  : NEW— VERSI ON ) ) 
( TERPRI  ) 

(PRINC  "Axe  signals  desired  on  the  range  Doppler  asp?  (Y/N)  ") 

(CONO  ((EQUAL  'Y  (REAO))  (ASK_SIG)) 

(  (WRITE  SIGS_PLACE  STREAM  MIOOLE)  (WRITE-CHAR  #\NEWLINE  MIOOLE))) 
(TERPRI ) 

(PRINC  "Is  noise  desired  on  the  range  Ooppler  aap?  (Y/N)  ") 

(CONO  ((EQUAL  'Y  (REAO))  (SETQ  FLAT  NOISE  1)  ( ASK_N ) ) 

(T 

(WRITE  FLAT_NOISE  STREAM  MIOOLE)  (WRITE-CHAR  #\NEWLINE  MIDDLE) 

(WRITE  FN_MU  -.STREAM  MIOOLE)  (WRITE-CHAR  #\NEWLI NE  MIOOLE))) 

(TERPRI ) 

(PRINC  "Is  reverberation  desired  on  the  range  Ooppler  aap?  tY/N)  ") 

(CDND  ((EQUAL  'Y  (READ))  (SETQ  REV  WEIGHT_NDISE  1)  (ASK  REV)) 

(T 

(WRITE  REV_WEIGHT_NOISE  ; STREAM  MIODLE)  (WRITE -CHAR  #\NEWLINE  MIOOLE) 

(WRITE  REV_WN_MU  STREAM  MIDOLE)  (WRITE-CHAR  #\NEWLINE  MIDOLE) 

(WRITE  REV_ALPHA  : STREAM  MIODLE)  (WRITE-CHAR  #\NEWLI NE  MIODLE) 

(WRITE  REV_ALPHA2  STREAM  MIDOLE)  (WRITE-CHAR  l\NEWLINE  MIDOLE))) 

( BOUNO_PROMPT_MOD ) 


4  FUNCTION  TO  PROMPT  FOR  OESIREO  TYPE  DF  MAP 
,-  OPEN  OUTPUT  FILE  MIDDLE 

,•  PROMPT  TD  INCLUOE  SIGNALS 
/  IF  SIGNALS  OESIREO,  CALL  ASK 
,•  WRITE  SIGS_PLACE  TO  FILE  MIOOLE 

/  PROMPT  TO  INCLUOE  NOISE 

/  WRITE  FLAT  NOISE  FLAG  TO  FILE  MIDOLE 
i  WRITE  FLAT  NOISE  MEAN  TO  FILE  MIOOLE 

,  PROMPT  TO  INCLUDE  REVERBERATION 

,  WRITE  REVERB  WEIGHTEO  NOISE  FLAG  TO 
,  FILE  MIDDLE 

WRITE  REVERB  WEIGHTED  NOISE  MEAN  TO 
,  FILE  MIOOLE 

,■  WRITE  REVERB  ALPHA  TO  FILE  MIDDLE 

WRITE  REVERB  ALPHA2  TO  FILE  MIODLE 

,-  CALL  HOUND  PROMPT  MOO  TO  PROMPT 
,  FOR  BOUNCARY  RETURNS 


( TERPRI ) 

(PRINC  "Is  a  quantized  representation  of  values  (Q)  or  a  representation") 
(PRINC  "  that  shows  only  the  presence  of  a  signal  (P)  desired?  [D/P]  ") 

(COND  ((EDUAL  'Q  (REAO))  (SETQ  DUANT  1))) 

(WRITE  QUANT  : STREAM  MIDOLE)  (WRITE-CHAR  |\NEWLINE  MIOOLE)) 


PROMPT  FOR  TYPE  OF  GRAPH  DESIREO 


WRITE  DUANT  TO  FILE  MIDDLE 

44444444 4 4 4 4444 4 4 444444444444 4 4444444444 
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(  OEFUN  AS  K_S  I  G  (  ) 


( SETQ  SICS  PLACE  1) 

(WRITE  SIC5_PLACE  t  STREAM  MIOOLE) 


(WRITE-CHAR  #\NEWLINE  MIDDLE) 


(TERPRI ) 

(PRINC  “Enter  the  nuaber  of 


fat'  L  signals  desired  (MAX  12) 


(SETQ  SET  SUM  FL  ( RE AO) ) 

<MIN_MAX  WRITE  SET  NUM  FL  0  12  I) 

(TERPRI ) 

(PRINC  "Enter  the  nuaber  of  ‘fst‘  0  signals  desired  (MAX  12) 

(SETQ  SET  NUM  FO  ( REAO) ) 
(MIN_MAXj?RITE  SET_NUM_FO  0  12  1) 

( TERPRI ) 

(PRINC  "Enter  the  nuaber  of  *fst‘  T  signals  desired  (MAX  12) 
(SETQ  SET  NUM  TT  (REAO)) 

<min_max  Write  set  num_ft  o  12  i) 

(TERPRI ) 

(PRINC  "Enter  the  nuaber  of  L  signals  desired  (MAX  12)  ...  " j 

(SETQ  SET  NUM  L  (REAO)) 
<MIN_MAX_BRITE  SET  NUM  L  0  12  1) 

( TERPRI ) 

(PRINC  "Enter  the  nuaber  of  0  signals  desired  (MAX  12)  ...  "] 

(SETQ  SET  NUM  O  (REAO)) 
(MIN_MAX_WRITE  SET_NUM_0  0  12  1) 

(TERPRI ) 

(PRINC  "Enter  the  nuaber  of  T  signals  desired  (MAX  12)  "] 

(SETQ  SET  NUM  T  (REAO)) 
(MIN_MAX_WrITE  SET_NUM_T  0  12  1) 

(TERPRI ) 

(PRINC  “Enter  the  nuaber  of  bars  desired  (MAX  12)  ...  ") 

(SETQ  SET  NUM  B  (READ)) 
(MIN_MAX_WRITE  SET_NUM_H  0  12  1) 

( TERPRI) 

(PRINC  “Enter  the  desired  aean  for  ") 

(PRINC  "the  level  of  tbeae  signals  (MAX  255)  ...  ") 

( SETQ  SIC  MU  (REAO) ) 

(MIN_MAX_WRITE  SIC_MU  1  255  100) 

(TERPRI ) 

(PRINC  "Are  constant  level  signals  (C)  or  ") 

(PRINC  "signal  level  tbst  vary  randomly  (R)  desired?  [C/R) 


FUNCTION  TO  ASK  FOR  OESIRED  NUMHER 
OF  EACH  TYPE  OF  SICNAL 

SET  FLAC  FOR  SIGNALS 

WRITE  SIGS_PLACE  TO  FILE  MIOOLE 

PROMPT  FOR  OESIREO  NUMBER  OF  EACH 
TYPE  OF  SICNAL 


(SETQ  RAN  SIG  LEV  (REAO)) 

(WRITE  RAP_Sl2_LEV  ;STREAM  MIOOLE)  (WRITE-CHAR  |\NEWLINE  MIOOLE)) 


4444444444444 


'4444444444444444444444 


>4444444444444444444444444444444444 


4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  i  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  i 

(OEFUN  MIN_MAX_WR ITE  (SET_NUM_ID  MIN_VAL  MAX_VAL  DEF_VAL) 

(CONO  ((NUMBERP  SET  NUM  10) 

(CONO  ((<  SET_NU5?  10  MIN_VAL )  (SETQ  SET  NUM_ID  MIN  VAL))) 

(CONO  ((>  SET  NUM**IO  MAX  VAL)  (SETQ  SET~NUM  10  MAX~VAL)))) 

(T  (SETQ  SETjTUM^TO  0EF_UAL))) 

(WRITE  SET_NUM_I0  : STREAM  MIOOLE)  (WRITE-CHAR  t\NE WLINE  MIOOLE)) 

iiiiiiiiiiiiiiiiiin  i iiiiiiiiiiiiiiiiiiiiiiiiiitiiiiiiiiiiriiiifiiiiiiiiiii at tiii 


44444 4 4444444444 4 4 


444444444444444444444444 


i  FUNCTION  TO  CHECK  BOUNDS  OF  VALUES 
;  AND  WRITE  THE  VALUES  TO  FILE  MIODLE 

,  SET  MINIMUM  NUMBER  OF  SIGNALS  MIN  VAL 
/  SET  MAXIMUM  NUMBER  OF  SICNALS  MAX  VAL 
/  SET  DEFAULT  VALUE 

/  WRITE  NUMBER  OF  SICNALS  TO  FILE  MIDDLE 
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i  .  i ...  i  i  i .  i  i  i  i .  i  i  i  i  i  i  i  ;  i  i  i  i  ;  i  i  i  ;  i  i  ;  i  ;  an  s  /  s  m  i  m  i  i  m  s  m  i  *  s  i  sssmsm  *  sum  ;  s  s  m  s  s  s  s  s  s  s  s  s  s  s  s  s  s  s ,  s  s  s  s  s  s  s  m  m  ,  s  s  s  s  s  s  s  m  ,  s  s  ; 

( OEFUN  ASK  N  ()  ;  FUNCTION  TO  ASK  FOR  MEAN 

;  .OF  NOISE  LEVEL 

(WRITE  FLAT_NOISE  iSTREAM  MIDDLE)  (WRITE-CHAR  l\NEWLINE  MIDDLE)  ;  WRITE  FLAT^NOISE  TO  FILE  MIDDLE 

(PRINC  "Enttr  th*  d*slr*d  mean  for  •>  ,  PROMPT  FOR  MEAN  OF  NOISE 

(PRINC  “the  lflvtl  of  th*  no  is*  (MAX  2  5  5)  .  .  “) 

( SETQ  FN_MU  (READ)) 

(MI N_MAX_WR I TE  FN_MU  1  255  20))  ;  CALL  MI N_MAK_WR ITE  TO  CHECK  RANGES 

s  ,  i  s  t  i  s  s  i  s  i  s  i  s  i  s  s  i  s  1 1  s  ,  ,  s  i  1 1  h ,  s  i  s  i  i  s ,  i  i  i  i  i  i  s  s  i  i  i  s  s  i  i  i ,  i  s  1 1 ,  s  i  s  i  i  i  t  i  s  s  s  s  ,  i  i , ,  i  i  i  s  ,  s  i  s  i ,  s  s  i  t  i  s  ,  i  i  i  i  i  s  s  i  s  s  s  ,  s  i  s  s  ,  i  i  i  t  s  s  s  s  i  s  s  i  s  i  i  i  i  i  i  i  i  s 


(DEFUN  AS  K_REV  () 


(WRITE  REV_WEIGHT_NOISE  : STREAM  MIOOLE )  (W*ITE-CHA*  f \NEWLINE  MIOOLE ) 
(PRINC  ‘Enttr  th*  d • s 1 r cd  m*an  for  “) 

(PRINC  “th*  1*t*1  of  th*  r*T*rh*ritlon  (MAX  255)  ...  “) 

(SETQ  REV  VN  MU  (READ)) 

(MIN_MAX_BriTE  REV_wn_MU  1  255  200) 

(TERPRI  ) 

(PRINC  “Enter  the  desired  valu*  to  determine  “) 

(PRINC  “the  shap*  of  the  r*verh*rat ion  (MAX  64)  ...  “) 

(SETQ  REV  ALPHA  (READ)) 

(MIN_MAX_*RITE  REV_ALPHA  1  64  5) 

( TERPRI ) 

(PRINC  "Ent*r  th*  d*slr*d  mean  for  “) 

(PRINC  "the  random  component  of  th*  r«v*rh*ra tion  (MAX  255)  .  “) 

(SETO  REV  ALPHA2  (READ)) 

(MIN_MAX_SRITE  RE V__ALPHA2  I  255  50)) 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiSiiiiiiiiiiiiiiiiSiiiii 


s  s  s  t .  m  m  m  s  i  s  t  i  s  t  s  ,  s  s  s  m  s  ,  s  s  .  1 1  t  m  s  , , 

i  FUNCTION  TO  ASK  FOR  REVERBERATION 
;  PARAMETERS 

;  WRITE  rev_weight_noise  to  file  middle 

;  PROMT  FOR  REVE R HER ATION  MEAN 

;  CALL  MIN_MAX_WRITE  TO  CHECK  RANGES 
,•  PROMPT  FOR  REVE  R  HER  ATION  SHAPE 

;  CALL  MIN_MAX_WRITE  TO  CHECK  RANGES 
;  PROMPT  FOR  NOISE  MEAN 

„•  CALL  MIN_MAX_WR  ITE  TO  CHECK  RANGES 

i  i  t  i  s  i  i  » i  i  i  s  s  i  i  i  i  i  s  s  i  i  i  i  s  s  i  i  i  s  i  i  s  s  s  t  i  i  i  s  s  i  i 


i  i  s  s  i  s  t  s  i  s  s  s  i  i  i  i  s  s  s  i  i  i  i  s  s  i  s  i  i  s  s  s  s  s  s  s  i  i  s  i  s  s  t  i  s  i  i  s  s  s  i  i  i  s  s  t  s  s  s  }  s  s  t  i  i  n  s  s  s  s  i  »  s  s  s  s  s  s  s  s  s  s  s  s  s  s  s  t  s  t  i  s  s  s  s  s  s  s  s  s  s  s  s  s  s  i  s  s  s  s  s  t  s  s  s  s  s  s  s  s  s  s  s  s  s  ))  s  s  s 
s 

(DEFUN  SET_SIGS  (SET_SIG_FL  SET_SIG_FO  SET_SIG_FT  SET_SIG_L  SET_SIG_0  SET_SIG_T  SET_SIG_H)  j  FUNCTION  TO  EXECUTE  SIGNAL  GENERATION 


(PICK_SIG_FL  SET  SIG_FL) 

(PICK~SIG_FO  SET”SIG~FO) 

(PICK_SIG_FT  SET~SIG  FT) 

(PICK_SIG_L  SET_5lG  E) 

(PICK_SIG_0  SET  SIG”0) 

( PI CK_SI G_T  SETlSIG^T) 

(PICK_SIG_H  SET_SIG_H) 

(SETQ  LOT.SIGS  (APPEND  SIG_FL  SIG_F0  SIG_FT  SIG_L  SIG_0  SIG_T  SIG_B  AD0_SIGS ) ) 
(DELETE  NIL  LOT^SIGS) 


/  CALL  FUNCTION  TO  PICK  THE  RANDOM 
;  SIGNAL  POSITIONS 


PUT  THE  SIGNALS  ALL  IN  ONE  LIST 
;  DELETE  ANY  NILS  FROM  SIGNAL  LIST 


(CHECKEO  LOT_SIGS) 


CALL  FUNCTION  TO  CHECK  FOR 

DUPLICATE  POINTS  IN  SIGNAL  LIST 


( TEST_RANGE_DOPPLER_MAP ) ) 


CALL  FUNCTION  TO  DISPLAY  SIGNALS 
ON  MAP 


iiiiSiiiiiSiSSiiSSiSSiiSSiSiS 


iitiSiiiiitisiiiiiiiiiiiiiiHiiiiiiiiSiiiiiiiiiiiiiii 


s  s  s  s  s  s  s  s  s  s  i  s  s  s  i  s  i  i  i 


i  i  J  S  i  S  i  i  i 


FUNCTION  TO  CHECK  FOR  DUPLICATE  POINTS 
IN  SIGNAL  LIST 


WHEN  ENTIRE  LIST  IS  CHECKED ,  QUIT 

FIND  LENGTH  OF  CHECK  LIST 
LOOK  AT  FIRST  ELEMENT  OF  CHECKLIST 
DELETE  ALL  OCCURENCES  OF  FIRST  ELEMENT 
FIND  LENGTH  OF  SHORTENED  CRECK_LIST 

DIFFERENCE  IN  LENGTHS  OF  TWO  LISTS 

SAVE  NUMHER  OF  OCCURENCES  OF  EACH  ELEMENT 


(DEFUN  CHECKED  (CHECKLIST) 
(PROG  (TEST) 


(SETQ  TEST  ( ) ) 
(SETQ  APPEAR  ( ) ) 


(COND  ((EOUAL  CHECK  LIST  ())  (RETURN  CHECKLIST)) 
(T 

(SETO  PRE  LENGTH  (  LENGTR  CHECKLIST)) 

(SETQ  TEST  (CAR  CHECK  LIST)) 

(SETO  CHECK  LIST  (DELETE  TEST  CHECK  LIST)) 
(SETQ  POST^EENGTH  (LENGTH  CHECK_LIST)) 

(SETQ  DIFF  (-  PRE— LENGTH  POST_LENGTH ) ) 

(SETQ  APPEAR  (CONS  TEST  (CONS  DIFF  APPEAR))) 

(GO  LOOP ))))) 


28' 


*  »  i  i  *  i  t  i  i  i  i  i  i  i  i  i  i  i  »  s  i  i  i  i  i  t  i  t  i  i  »  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  •  i  i  i  t  i  i 

(DEFUN  PIC  K_5IG_FL  (NUM_SIG_FL) 

( SETQ  SIG_FL  (PICK_HELPER  NUM_SIG_FL  1  FL  * PLACE_SIG_FL ) )  ) 

i 

i  t  ;  i  i  i  i  i  i  i  i  i  i  i  i  i  i  t  i  t  i  i  1 1 1 1  *  i  i  i  i  i  i  i  i  i  i  i  i » »  i  ;  t  ;  imtiiiiiittiiiiiti 

i 

i i i i i i i • i . i  s  • i i i i ; i i i i i •  t  i  i  i  i  i  i  i  i  *  i  i  i  t i i i i i i ;  * i « ; « ;  ;  ; ; ;  ,  ;  ;  ; 

(DEFUN  PLACETS  I G_FL  (CENTER) 


i  i  a  i  i  i  i  i  i  i  n  i  i  i  i  i  t  i  i  i  i  i  i  i  i  i  t  i  m  i  i  i  n  i  t  »  i  i  i  n  n 

i  FUNCTION  TO  RANDOMLY  PLACE  'FAT'  L  SIGNALS 
i  CALL  PICK_RELPER  FUNCTION  TO  PLACE  SIGNALS 

i  i  i  i  i  i  i  i  i  i  t  i  i  i  i  ;  i  i  i  i  i  i  i  i  i  i  t  i  i  » 1 1 1  i  t  }  t  i  ;  i  i  1 1 1  i  i  /  /  t 


FUNCTION  TO  PLACE  DESIGN  OF  'FAT'  L 


(CONS 

(NTH 

<- 

CENTER  ] 

(CONS 

(NTH 

(  - 

CENTER  ] 

(CONS 

(NTH 

(- 

CENTER  ] 

(CONS 

(NTH 

(- 

CENTER  ] 

(CONS 

(NTH 

(- 

CENTER  ] 

(CONS 

(NTH 

<- 

CENTER  ] 

(CONS 

(NTH 

<- 

CENTER  1 

(CONS 

(NTH 

<- 

CENTER  1 

(CONS 

(NTH 

<- 

CENTER  \ 

(CONS 

(NTH 

(- 

CENTER  ] 

(CONS 

(NTH 

CENTER  IN  1 

(CONS 

(NTH 

CENTER  ] 

(CONS 

(NTH 

(  + 

CENTER  1 

(CONS 

(NTH 

<  + 

CENTER  1 

(CONS 

(NTH 

<  + 

CENTER  1 

(CONS 

(NTH 

<  + 

CENTER  ] 

H  -  CENTER 


()))))))))))))))))) 


i  i  i  i  i  i i  t  i  1 1  i  t  i  i  i  i  i  i  i  i  i  i  *  t  i  i  i  i  1 1 1 1 1  i  i  t  i  t  i  i  t  i  i  i  i  t  i  i  i  t  i  i  i 

(DEFUN  PICK— HELPER  (NUM_SIG_ID  ID  PLACE_SIG_ID) 

(PROG  ( COUNTR ) 

(SETQ  COUNTR  NUM  SIG_ID) 

(SETQ  SIG_CEN  ( ) ) 

(SETQ  SIG~I D  ( ) ) 

LOOP 

(COND  ((EQUAL  COUNTR  0)  (RETURN  SIG_ID)) 


,  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  . 


(T 

(SETQ  SIG_CEN 


(  )  ) 


i  i  t  i  i  i  i  i  i  i  i  i  i  i  t  j  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i 

,  FUNCTION  TO  RANDOMLY  PLACE 
i  SIGNALS  ON  A  RANGE  DOPPLER  MAP 


WHEN  ALL  SIGNALS  PLACED,  QUIT 


■  i  i  i  i  i  t  i  i  i 


(COND  ( (EQUAL  ID  ' H ) 

(SETQ  SI G_CENTEt  (RANDOM  39))) 

(T 

(SETQ  SIG_CENTE*  ( WI THIN_HOUNDS  (RANDOM  2560))))) 

(SETQ  SIG_CEN  (CONS  ID  (CONS  SIG_CENTER  SIG_CEN))) 

(SETQ  CEN_SIG  (CONS  SIG_CEN  CEN_SIG)) 

(SETQ  SIG_ID  (APPEND  SIG_ID  ( FUNCALL  PLACE_SIG_ID  SIG_CENTER ) )  ) 
(SETQ  COUNTR  (-  COUNTR  1)))) 


RESET  SIG  CEN 


PICK  RANDOM  CENTER  VALUE 
WITHIN  HOUNDS  OF  MAP 


LAHEL  TYPE  OF  SIGNAL  WITH  CENTER  VALUE 
ADD  LAHEL  TO  CEN  SIG  LIST 


CALL  PLACE_SIG  *  FUNCTION  TO 

GENERATE  SIGNAL  AND  ADD  TO  SIG_ID 


DECREASE  COUNTER 


(GO  LOOP) ) ) 


i  i  i  i  i  i  i  i  t  i  i  i  i  i  i 


t  t  i  i  i  i  i  i  i  i  i  i  i  i  i 


i  i  ;  i  i  i  i  i  i  i  i  i  !  i 


(DEFUN  WITH I N_HOUNDS  (RAND) 
(PROG  ( ) 


FUNCTION  TO  CHECK  COLUMN  POSITION  OF 
SIGNAL  CENTERS  TO  ENSURE  NO  SIGNAL 
OVERLAPS  OVER  •EDGE*  OF  MAP 


LOOP 


(COND  ((MEMHER  (-  RAND  (•  64  (TRUNCATE  (/  RAND  64)))) 

' (0  I  2  3  4  5  6  7  58  59  60  61  62  63  )  ) 
(SETQ  RAND  (RANDOM  2560)) 

(GO  LOOP)) 

(  T  (RETURN  RAND) ) ) ) ) 


IF  COLUMN  POSITION  -  -6  TO  7  (MOD  64) 
PLACE  SIGNAL  CENTER  IN  A  NEW  COLUMN 


; i i i i  i  i  i  t  i  i  i  i  i  i  i  i  i  i  ii  •  t  i  :  i • i i i • » i ; ; ; • • i i ; ; • ; ; *  i i  1 1 1  • i i i i  t  »»»»  »  s ; i 


i  i  l  i  i  i  i  i  i  i  i  i  ii  i  i  ii  i  i  i  i  i  i  i  i  i  i  i  i  i  i 
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; ;  ;  s  ;  t .  ; ;  ; ;  .  ; ;  ;  444444444,44444444444444  ; ;  ;  «  »  » 4444444444444444/44444  •  •  »;»«««»  v  »  »  44444,44444414444444444444  ,■  ,■  4444444444444/44 

(  DEFUN  PICK_SIG_FO  <SUM_SIG_rO)  .  FUNCTION  TO  RANDOMLY  PLACE  'FAT*  0  SIGNALS 

(SETO  S I G_FO  (PICK_HELPER  NUM_SIG_FO  TO  1  PLACE_SIG_FO )  )  ) 

4  4  4  4  4  4  4  4  4  4  t  4  i  4  4  4  4  l  4  4  4  4  i  4  i  4  4  4  4  4  4  4  4  4  4  4  4  4  4  i  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  i  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  1  4  i  4  4 


4  4  i  4  4  < 

<  DEFUN 


i  4  4  .  4  4  4  4  4  4  4  4  4  4  4/4  4  44444  4  44444444444444444/  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4 

PLACE_SIG_FO  (CENTER) 

(CONS  (NTH  (-  CENTER  128)  IN_LIXE_FT) 

(CONS  (NTH  (-  CENTER  65)  IN_LINE_FT) 

(CONS  (NTH  (-  CENTER  64)  IN  LINE  FT) 

(CONS  (NTH  (-  CENTER  63)  IN-LINE-FT) 

(CONS  (NTH  (-  CENTER  1)  IN  LINE  FT) 

(CONS  (NTH  CENTER  IN  LINE  FT ) 

(CONS  (NTH  (+  CENTER-).)  lff_LINE_FT) 

(CONS  (NTR  (♦  CENTER  63)  IN_LINE_FT) 

(CONS  (NTH  <♦  CENTER  64)  IN_LINE  FT) 

(CONS  (NTH  (♦  CENTER  65)  IN_LINElFT) 

(CONS  (NTH  (♦  CENTER  128)  IN_LIXE_FT)  ())))))))))))) 


,  FUNCTION  TO  PLACE  DESIGN  OF  ‘FAT1  0 


;  I  I  -  CENTER 


'  ;  ;  i  /  /  /  4  4  4  4  i  4  i  i  »  i  i  4 


4  4  i  i  i  i  i  4  i  i  i  4  i  4  i  4  4  i  i  4  l  i  t  4  4  i  4  4  4  t  4  4  i  4  4  l  l  i  4  4  4  4  4  4  4  4  t  4  i  i  4  4  4  i  4  /  4  i  4  i  i  4  4  4  4  4  4  4  4  4  4  4  i  4  4  i  l  4  4  4  4  4  4  4  4  t  4  4  4  f  4  4  4  4  4  4  /  4  4  4  4  4  4  4  4  4  i  4  4  4  4  4  4  4  4  4  i  4  4  i  4  4  l  4  4  i  4  l  i  4  4 

(DEFUN  PICK_SIG_FT  (NUM_SIG_FT)  /  FUNCTION  TO  RANDOMLY  PLACE  ’FAT'  T  SIGNALS 

(SETO  SIG_FT  (PICK_HELPER  NUM_SIG_FT  •  rT  ' PLACE_SIG_FT ) ) ) 

4  4  4  /  4  4  4  4  4  4  4  4  4  4  4  /  4  4  4  //  4  4  4  4  4  /  4  4  4  4  4  4  4  4  4  /  4  4  4  /  4  4  4  4  4  4  4  4  4  4  //  4  4  4  /  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  /  4  4  4  4  4  4 


4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4 

(DEFUN  PLACETS I G_FT  (CENTER) 

(CONS  (NTH  (-  CENTER  128)  IN_LIllE_rT) 


4444444444, 


(CONS  (NTH 
(CONS  (NTH 
(CONS  (NTH 

(CONS  (NTH 
(CONS  (NTH 
(CONS  (NTH 

(CONS  (NTR 
(CONS  (NTH 
(CONS  (NTH 


(CONS 

(CONS 

(CONS 

(CONS 

(CONS 

(CONS 

(CONS 

(CONS 

(CONS 


(NTH 

(NTH 

(NTR 

(NTH 

(NTH 

(NTH 

(NTH 

(NTH 

(NTH 


CENTER  65)  IN_LINE_FT) 
CENTER  64)  IN_LINE_FT) 
CENTER  63)  IN_LINE_rT) 

CENTER  1)  IN  LINE  rT) 
CENTER  IN  LINE  FT) 

+  CENTER  1)  lS_LINE_rT) 

4  CENTER  63)  IN_LINE_FT) 

4  CENTER  64)  IN  LINE  FT) 

4  CENTER  65)  IN-LINE-FT) 

4  CENTER  124)  IN  LIKE^FT) 
4  CENTER  125)  IN'LIKE  FT) 
4  CENTER  126)  IN_LINE_FT) 
4  CENTER  127)  IN  LINE  FT) 
4  CENTER  128)  I N— LIRE- FT ) 
+  CENTER  129)  IN  LIME  TT ) 
4  CENTER  130)  IN_LIXE— FT ) 
4  CENTER  131)  IN  LIXE_FT) 
4  CENTER  132)  IN-LINE  FT) 


<))))))))))))))))))))) 


4444444/444* 


4444444 4444 444 4444 4 444 4 444 


444444444 


44444444444444444444444444444444444444444444444 

FUNCTION  TO  PLACE  DESIGN  OF  ’FAT’  T 


II  -  CENTER 


itiiiiitttiiit *444444*444* *  4  4  4  4  4  4  4  4  4  4  i  i  4  4  4  4  i 
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i  i  i  i  i  i  i  ,  ,  i  ,  ,  i  i  i  ,  ,  i  i  i  ,  ,  ,  i  1 1  i  i  t ,  ,  ,  i  i  ,  i  i  i  i  t  i  i  t  ,  i  i  a  ,  i  ,  ,  ,  i  i  ,  ,  i  i  ,  n  i  i  i  i  i  i  i  t  i  ,  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  t  i  i  i  t  i  n  i  ,  ,  i  i  t  i  i  ,  t  i  i  s  1 1 1 1 1 1  ,  i  i  t  i  t  i  i  i  t  i  i  t 

(DEFUN  PICK_SIG_L  (NCM_SIG_L)  ,  FUNCTION  TO  RANDOMLY  PLACE  L  SIGNALS 

( SETQ  S I G_L  ( PI CE_HE  LPER  NUM_SIG_L  '  L  ' PLACE_SIG_L ) ) ) 

iiiiiiiiiifiitiitiiittiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiitiitiittiiiiiiiiii  i  i  i  i  i  i  i  i  4  i  i  i  i  i  i  iiiiiiiiiiiiiiiiiiiiiiititiitiiiitiitittiiit 


i  itiiiiii  •  i  i  ./»/////  #  »  »  »  ;  ;  ;  ;  ;  /  ;  ;  ,*  »  ;  #■  ;  *  *  t  ;  ;  ;  ;;;;  i  #  #  ;  #  iiiiittiii  *  •  •  •  •  •  i  s  »  #  ;  ;  »  #•  •  i  •  •  i  i  ;  ;  ;  ;  »  >>  >  >  ;  .  ;  ;  ;  /  ;  »  <>  >  ;  ,  /  ,■  ;  ,■ ,  ,■ ,  ,■  ,■  ;  ,■  {  ,■ ,  ,■  ,■ ; 

(DEFUN  PLACE_SIG_L  (CENTER)  ,■  FUNCTION  TO  PLACE  DESIGN  OF  L 


(CONS 

(NTH 

(" 

CENTER 

128  ) 

IN 

LINE  FT) 

(CONS 

(NTH 

(- 

CENTER 

127  ) 

IN 

LINE  FT) 

(CONS 

(NTH 

(  - 

CENTER 

126) 

IN 

'LINE  FT) 

(CONS 

(NTH 

(~ 

CENTER 

125) 

IN 

~LINE~FT) 

(CONS 

(NTH 

(~ 

CENTER 

64) 

I  N_ 

LINE_FT) 

(CONS 

(NTH 

CENTER  IN-LINE 

.FT) 

(CONS 

(NTH 

(  + 

CENTER 

64) 

I^- 

LINE_FT) 

(CONS 

(NTH 

(  + 

CENTER 

128) 

IN 

_LINE_FT)  ()))))))))) 

CENTER 


i  i  i  »•»»»»»»»  i  i  i  i  i  i  i  i  i  t  i  t  i  i  i  i  i  i  1 1  i  i  1 1  i  i  i  1 1  i  t  i  •  •  i  1 1  i  i  i  •  •  t  i  i  i  i  t  i  i  i  i  i  t  •  i  i  1 1  i  i  i  i  an  i  i  •  i  i  i  a  » t  i  i  i » »  i  •  •  •  i  t  i  i  i  i  i i  i  i  i 4  J /  / 


i  t  i  t  i  t  i  i  i  t  i  i  1 1 1  i  i  i  t  i  i  i  i  i  1 1 1 1 1 1  i  t  i  t  i  i  1 1  i  1 1  i  i  1 1 1 1  i  i  1 1  i  t  i  1 1  i  i  i  i  1 1 1 1 1  i  i  1 1  i  i  i  1 1 1 1 1 1 1  i  t  i  1 1 1 1  i  i  i  t  •  t  i  •  i  1 1  i  i  1 1 1  i  i  i  i  1 1  i  i  i  i  i  t  i  t  i  1 1 1 1 1 1 1 1 1 1  i  i  i  i 

( DEFUN  P I CR_S I G_0  (NUM_SIG_0)  ,  FUNCTION  TO  RANDOMLY  PLACE  0  SIGNALS 

(SETQ  SIG_0  (PICK_HELPER  NUM_$IG_0  'O  • PLACE_SI G_0 ) ) ) 

i 

i  i  i  i  t  i  i  i  i  i  t  i  i  i  i  1 1  i  i  1 1  i  1 1 1  i  i  t  i  i  1 1 1 1 1 1 1 1  i  1 1 1  i  1 1 1  i  1 1  i  i  i  1 1  i  t  i  i  1 1  i  i  i  i  t  i  t  i  1 1 1  i  i  t  i  i  1 1  i  1 1 1  i  1 1 1  i  $  i  i  1 1 1 1 1  i  1 1  i  i  1 1 1 1 1 1  i  t  i  1 1  i  i  i  i  1 1  i  i  1 1  i  i  1 1  i  i  i  i  i  i 
t 

(DEFUN  PLACE_SIG_0  (CENTER)  ,  FUNCTION  TO  PLACE  DESIGN  OF  O 


(CONS 

(NTH 

(- 

CENTER 

128)  IN_LINE_FT) 

4  ** 

(CONS 

(NTH 

(- 

CENTER 

65)  IN  LINE  FT) 

*««#«• 

(CONS 

(NTH 

(- 

CENTER 

63)  IN~LINE'FT) 

»  **  ** 

(CONS 

(NTH 

(- 

CENTER 

1)  IN  LINE  FT) 

* 

(CONS 

(NTH 

(  + 

CENTER 

1)  IN_LI NE_FT ) 

i  It  -  CENTER 

(CONS 

(NTH 

(  + 

CENTER 

63)  IN  LINE  FT) 

(CONS 

(NTH 

(  + 

CENTER 

65)  IN_LINE_FT ) 

(CONS 

(NTH 

(  + 

CENTER 

128)  IN_LINE_FT)  ()))))))))) 

31 


t i i i  *  i i i i  i  t i i  t  *  i  »  i  *  i  i  i  i  i  #//;;/  i  i  t  i  i  t •  ;  ;  ;  /  ;  i ; / ; ; ; ; ; • # ; * t  ;  ;  /  « « ; 

(DEFUN  PICK_SIG_T  (NUM_SIG_T) 

{ SETQ  SIG_T  { PICK_HELPER  NUM_SIG_T  *  T  ' PLACE^SIG _T ) ) ) 


i  »  i  i  » »  s  i  i  i  i  i  i »  i  i  t  i  iiiiiiiiiiiiiiiiiiiiitittm  i  i 

FUNCTION  TO  RANDOMLY  PLACE  T  SIGNALS 


t  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  • 


i  i  i  i  i  i  i  i  i  i  i  i  t  i  i  i  i  i  i  i  i  i  i  i  i  i  i  ; 


( OEFUN  PLACE_SIG_T  (CENTER) 


FUNCTION  TO  PLACE  OESIGN  Of  T 


(CONS 

(NTH 

<" 

CENTER 

128) 

IN_ 

LINE_FT ) 

(CONS 

(NTH 

(- 

CENTER 

«4) 

IN_LINE_FT) 

(CONS 

(NTH 

CENTER  IN-LINE 

_FT ) 

(CONS 

(NTH 

(  + 

CENTER 

«4) 

IN_LINE_FT) 

(CONS 

(NTH 

(♦ 

CENTER 

125) 

IN 

LINE  FT) 

(CONS 

(NTH 

<♦ 

CENTER 

126  ) 

IN 

LINE’FT) 

(CONS 

(NTH 

(  + 

CENTER 

127) 

IN" 

LINE"FT) 

(CONS 

(NTH 

<♦ 

CENTER 

128  ) 

IN 

LINE  FT) 

(CONS 

(NTH 

<  + 

CENTER 

129) 

IN_ 

LINE  FT) 

(CONS 

(NTH 

<  + 

CENTER 

130) 

IN" 

LINE"FT) 

(CONS 

(NTH 

<♦ 

CENTER 

131) 

IN" 

LINE-FT ) 

i  f  {  i  t  i 

\  i  i  i  i  i 

'  i  i  i 

>  i  *  i  i  i  i  i 

i  i  i  i 

i  i  i  i 

i  l  i  ;  i  i  i  i 

M  -  CENTER 


i  i  i  i  i  i  i  t 


f  i  i  l  i  i  i  t  t  i 


iiiiliiliiiiiiliilliiliiiitiitiiiliiiiiiiiiiiiiiiitiiititiiiiliiiiiiiiiiiiiiililiiitltiitiiiliiltitiiiiiiliiitiililiiiiiiiiiliiiiil 

(OEFUN  PICK_SIG_B  (NUM_SIG_H)  ,  FUNCTION  TO  RANOOMLY  PLACE  BARS 

(SETQ  SIG_H  (PICK_HELPER  NUM_SIG_B  *B  * PLACE_S IG_B )  )  ) 

i 

ittiiiiiiiiiiiliiitiitiiliiiiliiiiiiiiiiiiiiiiiiiiiiitttiiiiiiiittiiitiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiitiiiiiiiiiiiiiiiiiiil 


iiiiiiiiiitiiiiitiiiiititiiiiiiiii 

(DEFUN  PLACE_SIG_B  (CENTER) 

(PROG  (RESULT  TIM) 


•  •iiiiiiiilliiiiiiiiilitiiiiiitiiiiiiiiiiiliiiiitliliiiiiii 

i  FUNCTION  TO  PLACE  OESIGN  OF  BAR 


(SETQ  TIM  0  ) 

(SETQ  RESULT  ( ) ) 

(SETQ  CENTER  (*  CENTER  64)) 


M  -  CENTER 


(CONO  ((>  TIM  63)  (RETURN  RESULT)) 

(T 

(SETQ  RESULT  (CONS  (NTH  (+  (-  CENTER  128)  TIM)  IN  LINE  FT) 

(CONS  (NTH  (+  (-  CENTER  64)  TIM)  IN  IlNE  fT) 

(CONS  (NTH  (+  CENTER  TIM)  IN  LINE  FT) 

(CONS  (NTH  (♦  CENTER  (+  64  TIM))  IN  LINE  FT) 

(CONS  ( NTR  (+  CENTER  (+  128  TIM  ))  TN_LI5IE_FT)  RESULT)))))) 

(SETQ  TIM  (+  TIM  1) ) ) ) 

(GO  LOOP ) ) ) 

i i i i i i i i i i l i i i }) t i i i n  i  1 1 i t  n i t i i i t i i i i i i i i i 1 1 i a i i  t i i i i n i 1 1 1 1 i i f  n i n i  i  1 1 


iiiiiiiitiiilliiti 


t  1  i  t  i  i  i  i  i  i  4  i  i  i  i  i  i 
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OEFUN  TEST_RANGE_DOPPLER_MAP  () 

i  FUNCTION  TO  CALL  CELL_LEVEL  FUNCTION 

(PROG  (COUNTER) 

(SETQ  COUNTER  0) 

(SETQ  NUMB  2497) 

(SETQ  COL  NUMB  1) 

/  INITIALIZE  COUNTER 
,  START  AT  FIRST  ELEMENT  IN  ROW  40 
;  SET  COLUMN  NUMBER  TO  1 

LOOP 

LOOP  TO  CALL  CELL  LEVEL  FUNCTION 
,  FROM  ROW  40  TS  ROW  1 

(  SETQ 

COUNTER  (♦  COUNTER  1)) 

;  INCREMENT  COUNTER  FOR  COLUMN  POSITION 

1 

(CONO 

((<  COUNTER  65) 

(CELL  LEVEL  NUMB) 

(SETQ  NUMB  (♦  NUMB  1)) 

(SETQ  COL  NUMB  (+  COL  NUMB 
(GO  LOOP ) ) 

in 

i  FOR  ALL  64  COLUMN  POSITIONS  IN  ONE  ROW, 

,•  CALL  CELL  LEVEL 

,■  INCREMENT  NUMBER 

i  INCREMENT  COLUMN  NUMBER 

,  REPEAT  LOOP 

(T 

(SETQ  NUMB  (-  NUMB  128)) 

(SETQ  COL  NUMB  1) 

(CONO  ((<  NUMB  1)  (RETURN  NUMB)) 

,•  GO  TO  BEGINNING  OF  PREVIOUS  ROW 

,  RESET  COLUMN  NUMBER 

,•  IF  ALL  ROWS  CALLEO,  QUIT 

(T 

(SETQ  COUNTER  0) 

(GO  LOOP)  )))))) 

;  IF  MORE  ROWS  TO  CALL, 

,  RESET  COUNTER  FOR  COLUMN  POSITION 

,■  REPEAT  LOOP 

iiuittt 

iiiifiiit* 4 

liititnii 

i  i  i  t  i  t  i  i  i  i  i  i  i  i  i  i  i  t  *  t  i  i  i  t  i  i  t  i  i  i  i  t  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  t  i  i  i  i  i  1 1  i  i  i  i  i  n  i  i  i  t  i  i  i  i  i  1 1 1  i  i  i  i  i  i  i  i  t  i  i  i  t  i  i  t  i  1 1 1 1  i  u  i  i  i  i  t  i  1 1  i  i  t  i  i  i  t  i  i  i  i  i  1 1 1 1 1 1 1 1  i  i 


( OEFUN  CELL_LEVEL  (POSIT) 


( SETQ  POSIT  (-  POSIT  I)) 
(SETQ  SUM  VALUE  0) 

(SETQ  TOT”S IG  VAL  0) 

(SETQ  REV  W  N5ISE  VALUE  0) 
(SETQ  F  NSiSE  VALUE  0) 
(SETQ  Bt5  VAL  5Q  0) 


,  FUNCTION  TO  ASSIGN  VALUES  OF  SIGNAL,  NOISE 
i  ANO  REVERBERATION  TO  A  SINGLE  CELL 

i  OECREMENT  POSIT  TO  ACCOUNT  FQR  STARTING  POSITION  OF  0 
t  INITIALIZE  SUM  VALUE 
,  INITIALIZE  TOTAL  SIGNAL  VALUE 
,  INITIALZE  WEIGBTEO  NOISE  VALUE 
;  INITIALIZE  FLAT  NOISE  VALUE 
i  INITIALIZE  BOUNDARY  VALUES 


( I F_0ESIRE0  PQSIT ) 


PLACE  SIGNALS  IF  DESIREO 


(CONO  ((EQUAL  REV  HEIGHT  NOISE  1) 

(OISTRIBUTE_REV  Wfl  REV  WN_MU)  , 

(SETQ  REV_W_NOlSE  VALUE  (*  RE V_W_NOISE_VALUE  REV_W_NOISE  VALUE)))), 


IF  HEIGBTEO  NOISE  IS  TO  APPEAR, 

CALL  FOR  WEIGBTEO  OISTRIBUTIQN 
SQUARE  THE  VALUE  OF  REV  W_NOISE  VALUE 


(CONO  ((EQUAL  FLAT_NQI SE  1) 

(OISTRIBUTE  FN  MU) 

(SETQ  F  NOISE_?ALUE  (*  VALUE  VALUE)))) 


,  IF  FLAT  NOISE  IS  TQ  APPEAR, 

,  CALL  FQR  RANDOM  OISTRIBUTION 
,  SQUARE  TBE  VALUE  OF  F_NOI SE_VALUE 


(CONO  ((EQUAL  BOUND_FLAG  1) 

(CALC_BO  VAL”POSIT  BOUNO  RET 

BOUND_GEtf  BOUNO_CONS_LEV  BOUNO_AVG_LEV)  )  ) 


IF  BOUNDARY  VALUES  OESIRED, 
CALCULATE  BOUNDARY  VALUES 


(SETQ  SUM_VALUE  (+  (+  (  +  TQT_SIG_VAL  REV_W_NOISE_VALUE ) 
BO  VAL  SQ) ) 

(SETQ  FINAL  VALUE  (TRUNCATE  ( SQRT  SUM  VALUE))) 

(SETQ  OUTPUT_FILE  (CONS  FINAL  VALUE  OUTPUT  FILE)) 

(SETQ  OUTPUT  FI  LEI  (CONS  FlNAl  VALUE  OUTPUT  FILE!)) 

( CQND  ((>  FlffAL_VALUE  256)  (SETQ  FINALJ/ALUE  256))) 

(CONO  ((EQUAL  QUANT  1) 

(SETQ  STARS  (  +  (TRUNCATE  (/  FINAL  VALUE  32))  1)) 

(SETQ  OUTPUT_LI ST  (CONS  STARS  OUTPUT_LI ST ) ) ) ) 


F_NOISE_VALUE )  ,•  ADD  VALUE  OF  SIGNALS,  REVERBERATION,  NOISE, 

,  ANO  BOUNOARY  RETURN 

;  TAKE  SQUARE  ROOT  OF  SUM  OF  SQUARES 
i  AOO  ELEMENT  TQ  OUTPUT_FILE 

,•  AOO  ELEMENT  TO  OUTPUT  FILEl 

,  MAXIMUM  FINAL  VALUE  iS  256  FOR  COMPUTATION  OF 
,•  QF  QUANTIZES  VALUES 

,-  QUANTIZE  TBE  VALUE  -  (VALUE  /  32  )  +  1 
i  AOD  QUANTIZEO  VALUE  TO  OUTPUT_LIST 


(SETQ  COUNT  (+  COUNT  1))  (SETQ  KQUNT  (  +  KOUNT  1)) 


INCREMENT  COUNTERS  FOR  OUTPUT  FILES 


(COND  ((EQUAL  COUNT  64) 

(SETQ  OUTPUT  LIST  (REVERSE  OUTPUT  LIST)) 

(WRITE  OUTPUT  LIST  : STREAM  LOOK)  (WRITE-CHAR  #\NEWLINE  LOOK) 
(SETQ  OUTPUT  PlLEl  (REVERSE  OUTPUT  FILEl)) 

(WRITE  OUTPUT  FILEl  .STREAM  PL0T30J  ( WRI TE-CBAR  #\NEWLINE  PLOT 3D ) 
( SETQ  OUTPUT  PlLEl  ( ) ) 

(SETQ  COUNT  5) 

(PRINC  M  ") 

(SETQ  OUTPUT_LIST  ()))) 


WHEN  COUNTER  IS  AT  64, 

REVERSE  OUTPUT  LIST 

WRITE  LINE  TO  PILE  LOOK  ANO  SKIP  TO  NEXT  LINE 
REVERSE  OUTPUT  FILEl 

WRITE  LINE  TO  PILE  P  LOT3D  ANO  SKIP  TO  NEXT  LINE 

RESET  OUTPUT  FILEl 

RESET  COUNTER  TO  0 

SKIP  TO  NEXT  LINE  ON  SCREEN 

RESET  OUTPUT_LI ST 


(COND  ((EQUAL  KOUNT  32) 

(SETQ  OUTPUT  FILE  (REVERSE  OUTPUT  FILE)) 

(WRITE  OUTPUT  FILE  STREAM  REVIOEfJ)  (WRITE-CBAR  #\NEWLINE  REVIOEN); 
(SETQ  OUTPUT  Pi LE  ( ) ) 

(SETQ  KOUNT  B)  )  )  ) 


WHEN  COUNTER  IS  AT  32, 

REVERSE  OUTPUT  FILE 

WRITE  LINE  TO  PILE  REVIOEN  ANO  SKIP  TO  NEXT  LINE 
RESET  OUTPUT  FILE 
RESET  COUNTER  TO  0 


i  i  t  i  i  i  t  i  i  i  i  •  i  i  i  i  i  i  i  l  i  i  i  i  i 


i  i  i  i  i  i  i  i  i  i  t  i  i  i  i  H  i  i  i  i  i  i  i  i  i  i  i  i  i  i  i  t  i  i  t  i 
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f 


igtgggggggggggggggggggggggggiigggggggggggggg  i  i  i  i  i  i  «  i  i 


i  i  iSiiiiiiiitiiiiiiiiiiiilliiliiiliiiiiiiiiSiiijiiillltiiliiii 


(OEFUN  ir_OESIREO  (RO_POS) 


FUNCTION  TO  PLACE  SIGNALS  ON  MAP 


(CONO  ((EQUAL  SIGS_PLACE  1) 

(CONO  ((EQUAL  (NTH  RO  POS  IN  LINE  FT) 

(CAR  (MEMBER  (STH  RG  PQS  IN  LINE  FT)  LOT  SIGS))) 

( SETQ  TIME_APP  (CAOR  (MEMHER  (NTH-R0_PGS  IN  LlflE  FT)  APPEAR))) 


PLACE  SIGNALS  IF  OESIREO 

CHECK  IF  ELEMENT  IS  IN  SIGNAL  ’POINT*  LIST 
RE AO  BOW  MANY  TIMES  IT  APPEARS 


(ITERATE ) 


CALL  ITERATE  FUNCTION 


(CONO  ((EQUAL  QUANT  0) 

(SETQ  OUTPUT  LIST  (CONS  YES_STARS  OUTPUT_LI5T) ) ) ) 
(PRINC  •••")) 


AOO  ELEMENT  TO  OUTPUT  LIST 

PRINTS  **  TO  SCREEN  iR  POSITION  Of  SIGNAL 


(PRINC  "  ") 

(CONO  ((EQUAL  QUANT  0) 

(SETQ  OUTPUT  LIST  (CONS  NO  STARS  OCTPUT_LI ST )))))))) ) 


PRINTS  BLANK  TO  SCREEN  WHERE  NO  SIGNAL  EXISTS 
AOO  ELEMENT  TO  OUTPUT_LIST 


i  g  i  i  i  i  i  g  i  i  i  i  i  i  g  i  g  g  i  {  i  {  i  i  i  i  i  i  i  iii  i  i  i  i  g  i 


g  g  g  g  i  g  t  g  > »,,/////;;  >  /  g > ;  gttggggggg g  > t g  g 


i  i  i  g  i  g  g  /  i  i  i  i  i  ;  I  g  i  i  i  g  i  i 


i  g  g  g  i  i  i  t  i  i  i  i  g  g  i  i  i  i  i 


g  i  g  g  g  g  g  g  g  g  i  g  g  i  g  i  i  g  g  g  g  g  i  f  i  g  i  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  i  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  i  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  i  g  g  g  g  g  g  g  g 


( OEFUN  ITERATE  () 

(PROG  (TIMES) 

(SETQ  TIMES  TIME_APP) 
LOOP 


/  FUNCTION  TO  RECALL  OISTRIBUTE  FUNCTION 
;  FOR  OVERLAPPING  SIGNALS 

g  SET  TIMES  TO  TIME_APP 


(CONO  ((EQUAL  TIMES  0)  (RETURN  TIMES)) 
(T 


IF  POINT  APPEARS  O  AOOITIONAL  TIMES,  QUIT 
OTHERWISE, 


(CONO  ((EQUAL  RAN  SIG  LEV  'C) 
(SETQ  VALUE  Sl£_MU)) 

(  (DISTRIBUTE  SIG_MU))> 


IF  SIGNAL  IS  TQ  BE  CONSTANT  LEVEL, 

SET  SIGNAL  TO  SIGNAL  MEAN 

CALL  FOR  RANDOM  OISTRIHUTION  OF  SIGNAL  LEVELS 


(SETQ  TOT  SIG _V A L  (+  (•  VALUE  VALUE)  TOT_SIG  VAL ) ) 
(SETQ  TIMES  (-  TIMES  1)) 

(GO  LOOP) ) ) ) ) 


AOO  VALUE  OF  SIGNAL  SQUAREO 
OECREASE  TIMES 
REPEAT  LOOP 


g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g 


g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g 


g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g 


g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  »  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  t  g  g  g  g  g  i  g  g  g  g  g  g  g 

(DEFUN  OISTRIBUTE  (MU)  ;  FUNCTION  TO  FINO  A  RAYLEIGH  DISTRIBUTION 


( SETQ  X  ( *  2  ( *  MU  MU) ) ) 

(SETQ  Y  (LOG  (+  (RANDOM  1.0)  0.00001))) 
(SETQ  Z  (  *  -1  (*  X  Y))) 

(SETQ  VALUE  (TRUNCATE  ( SQRT  Z)))) 


/  X  »  2  •  MU  *  MU 
i  Y  -  LN  ((RANDOM  1)  +  0.00001) 
g  Z  -  -  (X  •  Y) 
i  VALUE  -  Z  **  1/2 


g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g 


g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g 


g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g 


ggggggggg 


g  g  g  g  g  g 


g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g  g 


g  g  g  g  g  g  g  g  g  g  g  i  g  g  g  g  g  g  g  g  g  g  g  f  g  g  g  g  g  g 


(OEFUN  DISTRIBUTE_REV_WN  (REV_WN_MU) 


FUNCTION  TO  OISTRIBUTE  REVERB  WEIGHTEO  NOISE 


(SETQ  FBIN  32) 


INITIALIZE  FHIN 


(SETQ  A  (-  (+  FBIN  REV  ALPHA)  COL  NUMB)) 

(SETQ  H  ( •  (*  REV  WN  MU  REV  ALPHA!  (SQRT  (EXP  1)))) 

(SETQ  C  (/  A  (*  REV  XLPHA  REv_ALPHA))) 

(SETQ  O  (•  (/  (*  A  X)  (*  2  (*  REV  ALPHA  REV_ALPHA) ) )  -1)) 

(SETQ  E  (EXP  O) ) 

( SETQ  F  ( •  H  ( *  C  E) ) ) 


A  •  FBIN  +  REV  ALPHA  -  COL  NUMB 
H  -  REVWN  MU  *  REVALPHA  •  (SQRT  E) 

C  -  A  /  (REV  ALPHA  •  REV  ALPHA) 

O  -  -1  *  [(A  *  A)  /  (2  *  REV  ALPHA  •  REV_ALPHA) ] 
E  -  E  ••  O 
F  -  H  •  C  •  E 


(CONO  ((OR  (<  A  0)  (<  F  (/  REV_WN_MU  100)))  (SETQ  REV_W_NOI SE_V ALUE  0 )  ) g 

(T 

(OISTRIBUTE  REV  ALPHA2 ) 

(SETQ  RAN  NOISE  VALUE  VALUE) 

(SETQ  REV"W_N0I5E_VALUE  (+  RAN _NOI SE_V ALUE  F ) ) ) ) ) 


NO  WEIGHTEO  NOISE  TYPE  REVERBERATION  VALUE  FOR 
VALUES  OF  COL_NUMH  GREATER  THAN  (FHIN  ♦  REV_ALPBA) 

CALL  OISTRIBUTE  FOR  RANOOM  BACKGROUND  NOISE 

SET  RAN_NOISE_VALUE  TO  VALUE  GENERATEO 

AOO  RAN_NOISE_VALUE  TO  REVERB  WEIGHTEO  NOISE  VALUE 


giiiiiggggiii 


g  t  i  i  g  {  g  i  i  i  i  i  g  g  i  i  i  g  i  g  g  g  i  i  g  i  g  g  i  i  i  i  i  i  g  g  i  i  i  i  *  *  i  g  i  i  i  i  g  g  g  i  ( 


i/gggi  ggggggggg 


iggggggti/giig///gigfgg/gggggggg* 
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4444444444444444444444 


(DEFUN  BOUND_PROMPT_MOD  () 


FUNCTION  TO  PROMPT  TOR  BOUNDARY  CONDTIONS 


(TERPRI ) 

(PRINC  “Are  boundary  returns  desired?  (Y/N)  .  “) 

( SETQ  BOUND  GEN  (READ)) 

(COND  ((EQUAL  BOUND  GEN  ’Y)  (BOUNDARY)  ;  IF  DESIRED,  GENERATE  BOUNDARY  RETURNS 

(SETQ  BOUND_FLAC  X)) 

(T  i  OTHERWISE,  QUIT 

(SETQ  BOUND_GEN  1 NQ )  (SETQ  BQUND_FLAG  0)  (SETQ  BOUND  RET  ())))) 


t :  i  i  i  i  i  i  i  i  i  i  i  i  t  i  t  i  i  i  1 1 1  i  1 1 1  i  i  {  i  •  i  i  i )  i  i  •  •  •  •  i  ii  i  i  i  i  i  i  i , ,  i  i  i  i  i  i ,  i  i  i  i  t  i  i 


4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4 


i i i i i i i i i i i i i i i i i i i i i i i i }  i  i  i  i  i  t  ii  i  i  iii 


i  i  i  i 


(DEFUN  BOUNDARY  () 


FUNCTION  TO  PROMPT  FOR  BOUNDARY  CONDITION  VALUES 


(TERPRI)  (PRINC  “Platfora  depth  (a)  . “) 

(PRINC  “ .  ")  (SETQ  PLATD  (READ)) 

(TERPRI)  (PRINC  “PI* t fora  velocity  (a/sec)  .  “) 

(PRINC  “ .  “)  (SETQ  PLATV  (READ)) 

( TERPRI ) 

(PRINC  “Water  depth  (a)  . "  ) 

(PRINC  “ .  “)  (SETQ  WATERD  (READ)) 

( TERPRI ) 

(PRINC  “Average  level  of  all  houndary  returns  . “) 

(PRINC  " .  * )  (SETQ  BOUND_AVG_LEV  (READ)) 

( TERPRI  ) 

(PRINC  “Are  constant  boundary  returns  desired?  (Y/N)  ..") 

(PRINC  “ .  “)  (SETQ  BOUN D_CON S __ LEV  (READ)) 

( SUR  F_GEN 
( BOTT_GEN 
( S 1 B1_GEN 
(SIS  L_GEN 
( S2B1_GEN 
(B2S1_GEN 
(  S2B2  GEN 
( B2S2~GEN 

(SETQ  BOUND_RET  (APPEND  SURF_RET  BOTT  RET  S1B1_RET  B1S1_RET  /  COMBINE  ALL  COMPONENTS  OF  BOUNDARY  RETURNS 

S 2 B 1_RET  B2S1“RET  S2B2_RET  B2S2_RET)))  ;  TO  GET  BOUND_RET  VALUE 


PLATD  PLATV)  ;  GENERATE  BOUNDARY  RETURNS 

PLATD  PLATV  WATERD) 

PLATD  PLATV  WATERD) 

PLATD  PLATV  WATERD) 

PLATD  PLATV  WATERD) 

PLATD  PLATV  WATERD) 

PLATD  PLATV  WATERD) 

PLATD  PLATV  WATERD) 


iiiiiiiiiiitiiiiiiiiiiiiiiiiiiiiiitiiiiiiiiititit 


i  i  i  i  i  i  i  i  i  i 


iiiiiiiiiiiiiiiiiiiitiiiiiiiiiiiiiiiiiiiti 


444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444 

4 

(DETUN  SUR  F_GEN  ( DEPTHl  VELOC)  ,  FUNCTION  TO  PROMPT  TOR  AND  COMPUTE  SURFACE  RETURNS 

( SETQ  SURT  RET  ( ) ) 

(TERPRI) 

(PRINC  “Are  surface  boundary  returns  desired?  (Y/N)  .  *) 

(SETQ  SURF  RIDGE  (READ)) 

(COND  ((EQUAL  SURF_RI DGE  ' Y )  ,  IF  DESIRED,  GENERATE  SURFACE  BOUNDARY  RETURNS 

(PROG  ( BCOUNT ) 

(SETQ  BCOUNT  31) 

LOOP 

(COND  ((OR  (EQUAL  BCOUNT  0)  ( <-  BCOUNT  (-  32  (/  VELOC  2)))) 

(RETURN  SURF  RET) ) 

(T 

(SETQ  DELF  («  (-32  BCOUNT)  20)) 

(SETQ  ANG  (ACOS  (-  1  (/  DELF  ( «  10  VELOC))))) 

(SETQ  STIME  (/  DEPTHl  (*  750  (SIN  ANG)))) 

(SETQ  SURF_RET  (APPEND  (TRANS  SIG  STIME  BCQUNT ) 

SURF  RET) ) 

(SETQ  BCOUNT  ( -  BCOUNT  1))  ~ 

(GO  LOOP) ) ) ) ) 


(SETQ  SUR  F_R I DGE  'NO)))) 


(DEFUN  TRANS  SIG  (SIG  CENT  BCNT )  ;  FUNCTION  TO  REPRESENT  TRANSMITTED  SIGNAL 

;  “  ,■  IN  BOUNDARY  RETURN 

(SETQ  TR ANS_CELLS  ()) 

(SETQ  STINC  (*  64  (TRUNCATE  (/  SIG_CENT  0  05)))) 

(SETQ  BCELL  (+  ( -*•  BCNT  1)  STINC)) 

(SETQ  BCELLP  (+  BCELL  64)) 

(SETQ  BCELLM  6) 

(SETQ  TRANS_CELLS  (CONS  BCELLP  (CONS  BCELLM 

(CONS  BCELL  TRANS  CELLS)))) 

(DELETE  0  TRANS_CELLS ) ) 


4  4  4  4  4 
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4444444444444444*44444/444  4  4444  4  4444444  4  4  4  4444444444/44444*444444/  4  4  4  »'  4  4  4  4  »'  »'  »'  *  *'  »'  »'  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  i  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4 

(OEFUN  BOTT_GEN  (OEPTHl  VE  LOC  DEPTB2  )  .•  FUNCTION  TO  PROMPT  FOR  ANO  COMPUTE  BOTTOM  RETURNS 

( SETQ  BOTT  RET  ( ) ) 

(TERPRI) 

(PRINC  "Are  bottou  boundary  rtturni  desir ed?  [Y/N)  .  * ) 

(SETQ  BOTT  RIDGE  ( REAO) ) 

(COND  (  (  EQ0AL  BOTT_RIOGE  *Y)  4  IF  DESIRED.  GENERATE  BOTTOM  BOUNOARY  RETURNS 

(PROG  (BCOUNT) 

(SETQ  BCOUNT  31) 

LOOP 

(COSO  ((OR  (EQUAL  BCOUNT  0}  (<-  BCOUNT  (-  32  (/  VELOC  2)))) 

(RETURN  BOTT_RET ) ) 

(T 

(SETQ  OELF  (•  (-32  BCOUNT)  20)) 

(SETQ  ANG  (ACQS  (-  1  (/  OELF  (*  10  VELOC))))) 

(SETQ  STIME  (/  DEPTH 1  (*  750  (SIN  ANG)))) 

(SETQ  BTIME  <-  (/  DEPTB2  <•  750  (SIN  ANG)))  STIME)) 

(SETQ  BOTT  RET  (APPENO  (TRANS  SIG  BTIME  BCOUNT) 

BOTT  RET)) 

(SETQ  BCOUNT  (-  BCOUNT  l)) 

(GO  LOOP) ) ) ) ) 


(SETQ  BOTT_RI DGE  'NO)))) 


t  i  i  i  1 1  i  i  i  t  i  i  t  i  1 1  i  t  i  i  1 1  i  i  i  i  i  i  i  i  i  t  4  i  1 1 1 1  i  i  i  i  i  i  a  t  i  i  i  t  i  i  1 1 1  i  1 1 1  i  t  i  1 1 1  i  1 1 1 1  i  i  t  i  i  i  i  i  i  4  i  i  1 1  i  i  •  i  i  s  t  i  {  i  i  i  i  i  i  i  i  i  t  i  t  i  i  i  i  i  1 1  i  i  i  1 1  i  t  i  i  i  i  1 1  i  i  1 1 1  i 

(OEFUN  S1B1  GEN  (OEPTB1  VELOC  DEPTB2 )  /  FUNCTION  TO  PROMPT  FOR  ANO  COMPUTE 

/  ”  ;  ONE  SURFACE  ANO  ONE  BOTTOM  RETURN 

( SETQ  S1B1_RET  ( ) ) 

(TERPRI  ) 

(PRINC  "Ar«  *uxf ( 1 ) bott ( 1 )  boundary  returns  desired?  (Y/N]  .  " ) 

(SETQ  S1B1  RIOGE  (REAO)) 

(CONO  ((EQUAL  S 1 B 1_R I DGE  'Y)  ;  IF  OESIREO,  GENERATE  S1B1  BOUNOARY  RETURNS 

(PROG  (BCOUNT) 

(SETQ  BCOUNT  31) 

LOOP 


(CONO  ((OR  (EQUAL  BCOUNT  0)  (  <-  BCOUNT  (-  3  2  (/  VELOC  2)))) 
(RETURN  S1B1  RET)) 

(T 

(SETQ  OELF  («  (-32  BCOUNT)  20)) 

(SETQ  ANG1  (ACOS  (-  1  (/  OELF  (•  10  VELOC))))) 

(SETQ  SUMO  (+  OEPTB1  OEPTH2 ) ) 

(SETQ  OI FO  (-  DEPTH2  DEPTB1 ) ) 

(SETQ  ANG2  (ATAN  (/  (•  SUMD  (TAN  ANG1 ) )  OIFO))) 

(SETQ  TTN  (+  (*  Dl FO  (SIN  ANG2 ) )  (•  SUMO  (SIN  ANG1 ) ) ) ) 

(SETQ  TTD  (*  1500  (*  (SIN  ANGl )  (SIN  ANG2 ) ) ) ) 

(SETQ  SB  TIME  (/  TTN  TTO) ) 

(SETQ  SlBl  RET  (APPENO  (TRANS  SIG  SB_TIME  BCOUNT) 

S1B1_RET) ) 

(SETQ  BCOUNT  ( -  BCOUNT  1)) 

(GO  LOOP) ) ) ) ) 


4444444444 


(T 

(SETQ  SlBl_RIOGE  'NO)))) 

4/44444444 4 444 4 4444444444 44 4 


44444444444444444444 


t  //  4  4  4  4  4  4  4  4  4  t  4  4  4  4  4  4  4 
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(DEFDN  BlSl_GEN  (  DEPTB1  VE LOC  DEPTB2 )  ;  FUNCTION  TO  PROMPT  FOR  AND  COMPUTE 

4  ONE  BOTTOM  AND  ONE  SURFACE  RETURN 

( SETQ  BIS 1_RE T  (  )  ) 

(TERPRI ) 

(PRINC  "Are  bo tt ( I ) sur f ( I )  boundary  returns  desired?  [Y/Nl  .  “) 

(SETQ  BIS  X  RIDGE  (READ)) 

(COND  ((EQUAL  BIS1_RIDCE  *Y)  IF  DESIRED,  GENERATE  BlSL  BOUNDARY  RETURNS 

(PROG  (BCOUNT) 

(SETQ  BCOUNT  31) 

LOOP 

(COND  ((OR  (EQUAL  BCOUNT  0)  (<-  BCOUNT  (-  32  (/  VELOC  2)))) 

( RETDRN  BIS  1  RET) ) 

(T 

(SETQ  DELF  (•  (-  32  BCOUNT)  20)) 

(SETQ  ANGl  (ACOS  (-  X  (/  DELF  («  10  VELOC))))) 

(SETQ  DIF2  (-  (•  2  DEPTB2 )  DEPTB1 ) ) 

(SETQ  ANG2  ( ATAN  (/  (•  DIF2  (TAN  ANGl))  DEPTB1 ) ) ) 

(SETQ  TTN  (+  (*  DEPTB1  (SIN  ANG2 ) )  (•  DI F2  (SIN  ANGl)))) 

(SETQ  TTD  (•  1500  (•  (SIN  ANGl)  (SIN  ANG 2 ) ) ) ) 

(SETQ  SB  TIME  (/  TTN  TTD)) 

(SETQ  BlSl_RET  (APPEND  (TRANS  SIG  SB  TIME  BCOUNT) 

B1S1_KET) ) 

(SETQ  BCOUNT  (-  BCOUNT  1)) 

(GO  LOOP) ) ) ) ) 

(T 

(SETQ  BIS 1_R I DGE  ’NO)))) 


i  i  m  i  i  i  i  i  i  t t  i  f 4 i i  4  4  4  4  4  4  4  4  4  4  4  4  4  4 i  t  4  4  4  4 


4 4 4 4 444444 4 4 4444 4 


4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  i  4  4  4  4  4  4  4  4  4  4  4  4  4  4  i  4  4  4  4  4  4  4  4  4  4  1  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  l  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4 

(DEFUN  S 2B1_GEN  ( DEPTB1  VELOC  DEPTB2 )  ,  FUNCTION  TQ  PROMPT  FOR  AND  COMPUTE 

/  /  TWO  SURFACE  AND  ONE  BOTTOM  RETURN 

(SETQ  S2B1_RET  ( ) ) 

(SETQ  S2B1  RET1  ( ) ) 

( SETQ  S 2B1~RET2  (  ) ) 

(TERPRI) 

(PRINC  "Are  sur £ ( 2 ) bott(  1 )  boundary  returns  desired?  IY/N]  .  *) 

(SETQ  S2B1  RIDGE  (READ)) 

(COND  ((EQUAL  S2B1_RIDGE  ’Y)  ,  IF  DESIRED,  GENERATE  S2B1  BOUNDARY  RETURNS 


(PROG  (BCOUNT) 

(SETQ  BCOUNT  31) 

LOOP 


( CQND  ((OR  (EQUAL  BCOUNT  0)  (<-  BCOUNT  (-  32  (/  VELOC  2)))) 

(SETQ  S2B1  RET  (APPEND  S2B1  RET1  S2B1  RET2 ) ) 
(RETURN  S2Bl  RET) ) 


(SETQ  DELF  (*  (-  32  BCOUNT)  20)) 

(SETQ  ANGl  (ACOS  (-  1  (/  DELF  (*  10  VELOC))))) 

(SETQ  SUM2  (+  (*  2  DEPTB2 )  DEPTB1 ) ) 

(SETQ  ANG2  (ATAN  (/  (•  SUM2  (TAN  ANGl))  DEPTB1 ) ) ) 

(SETQ  TTN  (+  <*  DEPTH1  (SIN  ANG 2 ) )  (*  SUM2  (SIN  ANGl)))) 

(SETQ  TTD  (*  1500  <•  (SIN  ANGl)  (SIN  ANG2 ) ) ) ) 

(SETQ  SB  TIME  (/  TTN  TTD)) 

(SETQ  S2Bl_RETl  (APPEND  (TRANS  SIG  SB  TIME  BCOUNT) 

S2B1  RET!)) 


(SETQ  TTN2  (•  2  (+  DEPTB1  DEPTB2 ) ) ) 

(SETQ  TTD2  (*  1500  (SIN  ANGl))) 

(SETQ  SB2  TIME  (/  TTN 2  TTD2 )  ) 

(SETQ  S2BT  RET2  (APPEND  (TRANS  SIG  SB2  TIME  BCOUNT) 
S2B1  RET2 ) ) 


(SETQ  BCOUNT  (-  BCOUNT  1)) 
(GO  LOOP) ) ) )) 


(T 


(SETQ  S  2  B 1_R I DGE 


•NO) ) ) ) 


4  4  4  4  4 


4  i  4  4  4  4  4  4  4  4  4 


444444 4 
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(DEFUN  B2S1  GEN  (DEPTBl  VE LOC  DEPTB2 )  *  FUNCTION  TD  PRDMPT  FDR  AND  COMPUTE 

;  TWD  BDTTDM  AND  DNE  SURFACE  RETURN 

(SETQ  B2SI_RET  ( ) ) 

( SETQ  B2SI  RETl  <  )  ) 

(SETQ  B2S1  RET2  ( ) ) 

(TERPRI ) 

(PRINC  "Are  bott( 2 ) surf ( 1 )  boundary  returns  desired?  (Y/NJ  ") 

(SETQ  B2S1  RIDGE  (READ)) 

( CDND  ((BOCAL  B2S1_RIDCE  'Y)  .  IF  DESIRED,  GENERATE  B2SI  BD UN D ARY  RETURNS 

(PROG  ( BCD  UN T ) 

(SETQ  BCDUNT  31) 

LOOP 

(CDND  ((DR  (EQUAL  BCDUNT  0)  <<-  BCDUNT  <-  32  (/  VELOC  2)))) 

(SETQ  B2S1  RET  (APPEND  B2S1_RET1  B2S1  RET2 ) ) 

(RETURN  B25l_RET) ) 

<T 

(SETQ  DELF  (*  (-  32  BCDUNT)  20)) 

(SETQ  ANG 1  (ACDS  (-  1  (/  DELF  (*  10  VELOC))))) 

(SETQ  DIF3  (-  (*  3  DEPTH2)  DEPTHl ) ) 

(SETQ  DIFD  (-  DEPTB2  DEPTH)) 

(SETQ  ANG 2  ( ATAN  (/  (*  DIF3  (TAN  ANG1 ) )  DIFD))) 

(SETQ  TTN  (+  (*  DIFD  (SIN  ANG 2 ) )  (•  DIF3  (SIN  ANG 1 ) ) ) ) 

(SETQ  TTD  («  1500  <*  (SIN  ANG 1 )  (SIN  ANG2)))) 

(SETQ  SB  TIME  (/  TTN  TTD)) 

(SETQ  B25l  RETl  (APPEND  (TRANS  SIG  SB_TIME  BCDUNT) 

B2S1_RET1) ) 

(SETQ  TTN 2  (*  2  (-  (*  2  DEPTB2 )  DEPTBl))) 

(SETQ  TTD 2  (*  1500  (SIN  ANGl )  )  ) 

(SETQ  SB2  TIME  (/  TTN2  TTD 2 ) ) 

(SETQ  B2SI  RET2  (APPEND  (TRANS  SIG  SB2_TIME  BCDUNT) 

B2S1  J?ET2 ) ) 

(SETQ  BCDUNT  (-  BCDUNT  1)) 

(GD  LOOP))))) 


(T 

(SETQ  B 2S 1 _R I DGE  1 ND  )  ) ) ) 

i  i  i  i  i  i  i  i  i  4  i  l  i  i  i  l  1 1  i  l  i  1 1  i  i  i  i  i  i  *  i  i  i  i  l  t  i  t  i  1 1  i  i  i  t  i  i  1 1  i  i  i  i  1 1  i  1 1  i  i  i  t  i  i  1 1  i  i  i  i  i 


i  4  i  i  i  4  i  i  i  4  i  4  i  i  i  i  i  i  i  4  i  i  4  i  4  4  4  i  i  i  4  4  i  4  i  i  i  i  4  i  4 


444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444 

(DEFUN  S2B2  GEN  (DEPTBl  VELOC  DEPTH2)  /  FUNCTION  TD  PRDMPT  FDR  AND  CDMPUTE 

;  ;  TWD  SURFACE  AND  TWQ  BOTTOM  RETURNS 

( SETQ  S2B2  RET  ( ) ) 

(SETQ  S2B2”RET1  ( ) ) 

(SETQ  S2B2  RET2  ( ) ) 

(TERPRI) 

(PRINC  "Are  aur f( 2 ) bott( 2 )  boundary  return*  desired?  (Y/N]  .  ") 

(SETQ  S2B2  RIDGE  (READ)) 

(CDND  ((EQCAL  S2B2_RI DGE  *Y)  4  IF  DESIRED ,  GENERATE  S2B2  BOUNDARY  RETURNS 

(PRDG  (BCDUNT) 

(SETQ  BCDUNT  31) 

LOOP 

(CDND  ((DR  (EQUAL  BCDUNT  0)  ( <-  BCDUNT  (-  32  (/  VELOC  2)))) 

(SETQ  S2B2  RET  (APPEND  S2B2_RET1  S2B2  RET2 ) ) 

(RETURN  S2B2  RET) ) 

(T 


(SETQ  DELF  (*  (-32  BCQUNT)  20)) 

(SETQ  ANGl  (ACQS  (-  1  (/  DELF  (*  10  VELDC))))) 

(SETQ  SUM3  (+  (*  3  DEPTB2 )  DEPTBl)) 

(SETQ  DIFD  (-  DEPTB2  DEPTBl)) 

(SETQ  ANG 2  (ATAN  (/  (*  SUM3  (TAN  ANGl))  DIFD))) 

(SETQ  TTN  (+  (*  DIFD  (SIN  ANG2 ) )  («  SUM3  (SIN  ANGl)))) 
(SETQ  TTD  (•  1500  (*  (SIN  ANGl)  (SIN  ANG2 ) ) ) ) 

(SETQ  SB  TIME  (/  TTN  TTD)) 

(SETQ  S2B2  RETl  (APPEND  (TRANS  SIG  SB  TIME  BCDUNT) 

S2B2  RETl))  “ 


(SETQ  SUMD2  (+  DEPTBl  DEPTH2 ) ) 

(SETQ  ANG22  (ATAN  (/  (*  SUMD2  (TAN  ANGl))  DIFD))) 

(SETQ  TTN 2  (+  (*  DIFD  (SIN  ANG 2  2))  («  SUM3  (SIN  ANGl)))) 
(SETQ  TTD 2  <*  1500  (*  (SIN  ANGl)  (SIN  ANG 2 2 ) ) )  ) 

(SETQ  SB2  TIME  (/  TTN 2  TTD 2 ) ) 

(SETQ  S2BI  RET  (APPEND  (TRANS  SIG  SB2_TIME  BCDUNT) 
S2B2_RET2 ) ) 

(SETQ  BCDUNT  (-  BCDUNT  1)) 

(GD  LDDP ) ) ) ) ) 


<T 


(SETQ  S2B2_RIDGE 


'ND))) ) 


4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4 


4444444444444444444444444444 4 4 4444 4 4 4 4 4 4 
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•  ;  ;  4  *  *  *  4  4  4  4  4  4  i  i  i  i  4  4  4  4  i  4  4  4  4  4  4  4  4  4  i  4  4  *  4  4  4  *4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  *  »  4  4  *  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  i  4  4  4  4  4  4  4*  i  4  4  4  4  4  4  4  4  4  i  4  4  4  4  4  4  4  4  4  4  4  4  4  4 

(DEFUN  B2S2_GEN  ( DEPTB1  VELOC  DEPTH2)  /  FUNCTION  TO  PROMPT  FOR  AND  COMPUTE 

,  i  TWO  BOTTOM  AND  TWO  SURFACE  RETURNS 

( SETQ  B2S2  RET  { ) ) 

( SETQ  B2 S  2 ~  RET I  (  )  ) 

( SETQ  B2S 2~RET2  (  ) ) 

( TERPRI) 

(PRINC  "Are  bott( 2 ) *ur f( 2 )  boundary  return*  desired?  (Y/N)  .....  ") 

(SETO  B2S 2  RIDGE  (READ)) 

(COND  ((EOCAL  B2S2  RIDGE  ' Y )  ;  IF  DESIRED,  GENERATE  B2S2  BOUNDARY  RETDRNS 


(PROG  ( BCOUNT ) 

(SETQ  BCOUNT  31) 

LOOP 


4444444444 


(COND  ((OR  (EQDAL  BCOUNT  0)  (<-  BCOUNT  (-  32  (/  VELOC  2)))) 

(SETQ  B2S2  RET  (APPEND  B2S2_RETI  B2S2_RET2 ) ) 
(RETURN  B252_RET) ) 


(  SETO 
(SETQ 
(  SETQ 
(SETO 
(SETQ 
(  SETQ 
(  SETQ 
(  SETQ 
(SETQ 


DELF  (*  (-  32  BCOUNT)  20)) 

ANGI  (ACOS  (-  I  (/  DELF  (*  10  VELOC))))) 

DIF4  <-  (*  4  DEPTB2)  DEPTBI ) ) 

DIFD  (-  DEPTB2  DEPTBI)) 

ANG2  (ATAN  (/  (•  DIF4  (TAN  ANGI))  DEPTBI))) 

TTN  (+  (*  DEPTBI  (SIN  ANG2 ) )  (*  DIF4  (SIN  ANGI)))) 
TTD  (•  1500  (*  (SIN  ANGI)  (SIN  ANG2 ) ) ) ) 

SB  TIME  (/  TTN  TTD) ) 

B252_RETI  (APPEND  (TRANS  SIG  SB_TIME  BCOUNT) 
B2S2_ffETl) ) 


(SETQ  DIF22  (-  (*  2  DEPTB2 )  DEPTBI)) 

(SETO  ANG22  (ATAN  (/  (*  DIF22  (TAN  ANGI))  DEPTBI))) 

(SETO  TTN 2  (+  (*  DEPTBI  (SIN  ANG22 ) )  (*  DIF4  (SIN  ANGI)))) 

(SETO  TTD2  (•  1500  (*  (SIN  ANGI)  (SIN  ANG22 ) ) ) ) 

(SETO  SB 2  TIME  (/  TTN2  TTD2 )  ) 

(SETQ  B2Sl_RET2  (APPEND  (TRANS  SIG  SB2  TIME  BCOUNT) 
B2S2_KET2 ) ) 


(SETQ  BCOUNT  (-  BCOUNT  1)) 
( GO  LOOP ) ) ) ) ) 


(SETQ  B2S2_RIDCE 


'NO) 


) 


t  i  i  t  I  i  i  i  i  t  »  i  i  i  i  i  i  !  i  i  4  4  i  i 


44444444444444444444444444444444444444444444444444444444444444444444 


444444444444444444444444444 


4444*444444444**4444444444444444444444444444 

(DEFUN  BOUND_WRITE  (BOUND_FILE  ir_BOUND_GEN ) 
(WRITE  IF_BOUND_GEN  : STREAM  BOUND^FILE) 
(COND  ((EQUAL  I F_ BO UND_G E N  'Y) 


44444444444444444444444444444444444444444444444444444 


4444444444444 


44444444444 


(WRITE-CBAR  #\NEWLINE  BODND_FILE ) 


FUNCTION  TO  WRITE  BOUNDARY  CONDITION  VALDES 
TO  FILE  BOUND_FILE  (OUTPDT  FILE  CENTERS  LSP  ) 


( WHITE  PLATD 
(WRITE  P  LA TV 
(WRITE  WATERD 
(WRITE  BOUND  AVG  LEV 


t STREAM  BOUND_FILE) 
t STREAM  BOUND_FILE) 
t STREAM  BOUND  FILE) 

,  _  _  __  iSTREAM  BOUND~FILE) 

(WRITE  BOUND  CONS  LEV  : STREAM  BOUND~FILE) 


(WRITE  SURF_fflDGE 
(WRITE  SURF  RET 
(WRITE  BOTT~RIDGE 
(WRITE  BOTT~RET 
(WRITE  S1B1  RIDGE 
(WRITE  B1SI~RIDGE 
(WRITE  S2B1  RIDGE 
(WRITE  B2SI_RIDGE 
(WRITE  S  2  B2  _R IDGE 
(WRITE  B2S2  RIDGE 
(WRITE  BOUNB_RET 

(T 

(WRITE  BOUND_RET 


.•STREAM  BOUND  FILE) 
iSTREAM  BOUND  FILE) 
iSTREAM  BOUNDlFILE) 
t STREAM  BOUND  FILE) 
t  STREAM  BOUND2.FI  LE  ) 
.•STREAM  BOUND_FI  LE  ) 
: STREAM  BOUND  FILE) 
t STREAM  BOUND~FILE) 
t STREAM  BOUND^FILE) 
t  STREAM  BOUND_FI LE ) 
: STREAM  BOUND  FILE) 


(WRITE- 
( WRITE- 
( WRITE- 
(KRITE- 
(  WRITE- 
(  WRITE- 
(  WRITE- 
( WRITE 
(WRITE- 
( WRITE- 
(WRITE- 
( WRITE- 
( WRITE - 
(  WRITE- 
(  WRITE- 
( WRITE- 


CBAR 

•CBAR 

CBAR 

CBAR 

■CBAR 

CBAR 

CBAR 

CBAR 

CHAR 

CBAR 

CBAR 

CHAR 

CBAR 

CBAR 

CBAR 

CBAR 


#\NEWLINE 
♦\NEWLINE 
#\NEWLINE 
#\NEWLINE 
#\NEWLINE 
♦\NEWLINE 
#\NEWLINE 
#\NEWLINE 
#\NEWLINE 
#\NEWLINE 
#\NEWLINE 
#\NEWLINE 
#\NEWLINE 
#\NE WLINE 
IXNEWLINE 
#\NEWLINE 


BOUND 

BOUND- 

BOUND- 

BODND- 

BOUND- 

BOUND- 

BOUND' 

BOUND- 

BOUND- 

BOUND- 

BOUND- 

BOUND' 

BOUND- 

BOUND- 

BOUND- 

BOUND 


FILE) 
FILE) 
FILE) 
FILE) 
FILE) 
FILE) 
FILE) 
FILE) 
FILE) 
FILE  ) 
FILE) 
FILE) 
FILE) 
FILE) 
FILE) 
FILE) ) 


t  STREAM  BOVND_FILE)  (WRITE-CHAR  #\NEWLINE  BOUND_FILE ) ) ) ) 


44*4444444* 


444444444444444444444444444444444444444444444444444444444444444444444444*44444444444444444444444444444444444444444444444 
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»  » •  •  •  t  i  i  i  i .  •  i  s  i  t  i  i  i  •  i  •  iiiiiiiiiiiiiiii iiiiiiiiiii 

(DEFUN  80UND_READ  (INPUT_FILE) 

(SETQ  BOUND_GEN  (READ  INPOT_FILE)) 


iiiiiiiiiitiiiiiitttiiiiilitttttttiiliiiitiiiiiiiliit 

FUNCTION  TO  REAO  COMPONENTS  OF  BOUNDARY  CONDITIONS 
FROM  FILE  WHEN  MAP  IS  REGENERATED 


(CONO  ( ( EQUAL  BOUND  GEN  ’Y) 
(SETO  PLATD  ~ 

(SETQ  PLATV 
(SETQ  WATERD 
(SETQ  BOUND_AVG  LEV 
(SETQ  SOUND  CON5_LEV 

(setq  surf  Ridge 

(SETQ  SURF^RET 
(SETQ  80 TT  RIDGE 
(SETQ  BOTT'RET 
(SETQ  SISl'RIDGE 
(SETQ  81S1~RIDGE 
(SETQ  S281~RIDGE 
(SETQ  82SI_R I DGE 
(SETQ  S282  RIDGE 
(SETQ  82S2~RIDGE 
(SETQ  SOUNB  RET 


(READ  INPUT_FILE) ) 
(READ  I NPUT_ri LE ) ) 
(READ  INPUT  FILE) ) 
(READ  INPUT  FILE) ) 
(REAO  INP  UT~FI LE ) ) 
(READ  INPUT'FILE) ) 

( REAO  INPUT'FILE) ) 

( READ  INPUT~FILE) ) 

( READ  INPUT~FILE) ) 
(READ  I NPUT_FI LE ) ) 
(READ  I NPUT_FI LE ) ) 
(READ  INPUT  FILE) ) 
(REAO  INPUT~FILE)) 
(READ  INPUT  FILE) ) 
(READ  INPUT~FILE ) ) 

( READ  I NP UT~FI LE ) ) ) 


(T 

(  SETQ 


80UND_RET 


( READ  INPUT_FI LE ) ) ) ) ) 


iiiiiiiiiiiii 


iiiiiiiiiiiiiiii* 


iiiiiiiti 


iiiiiiiiiiiiitiitiiiiiiiiiiiiii 


i  i  i  t  i  i  i  i  i  1 1 


1 1 1 1 1 1  > 
(DEFUN 


i i i i i i i i iiiiiiiiiiiii i  i  i  i i  i  i  iiiiiiiiiiitiiiitiiiitiiiiititiiiiiiiiii 


iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii 


CALC_BD_VAL  (RD_POS  RET_LIST  IF_GEN  IF_CONS_LEV  AVG^LEV) 

(CONO  ((AND  (EQUAL  IF  GEN  *Y) 

(EQUAL  ir“CONS_LEV  *Y) 

(EQUAL  RD~POS  JCKK  (MEMBER  RD_POS  RET_LIST)))) 

(COND  ((OR  (EQUAL  RD  POS  (CAR  (MEMBER  RD  POS  SURF  RET})) 

(EQUAL  RD~POS  (CAR  (MEMBER  RD  POS  80TT- RET )  )  )  ) 

jSETQ  8D_VAL  XVG_LEV)) 

( SETQ  8D_VAL  (/  AVG_LEV  2))))) 

((AND  (EQUAL  IF  GEN  *Y) 

(EQUAL  RD_POS  (CAR  (MEMBER  RD_POS  RET_LI ST ) ) ) ) 

(COND  ((OR  (EQUAL  RD  POS  (CAR  (MEMBER  RD  POS  SURF  RET)}) 

(EQUAL  RD’POS  (CAR  (MEMBER  RD  POS  BOTT  RET)))) 

(SETQ  8D  VAL  (DISTRIBUTE  AVG  LEV)J) 

(T 

(SETQ  BO_VAL  (OISTRIBUTE  (/  AVG_LEV  2)))))) 

(T 

(SETQ  BD_VAL  0)  }  ) 

(SETQ  8D_VAL_SQ  (*  8D_VAL  8D_VAL))) 


FUNCTION  TO  CALCULATE  BOUNDARY  RETURNS 


SQUARE  VALUE  OF  8D_VAL  TO  ADD  TO  AMPLITUDE  LEVEL 

iiiiiiiiiiiii ii i t i i iiiiiiiiiiiii iiiiiiif t  i t i i i i t i i i i i 
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SAMPLE  INTERACTIVE  TERMINAL  SESSIONS 


Sairple  Interactive  Terminal  Sessions 
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SAMPLE  OUTPUT  FILES 


APPENDIX  Cl 
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IM«  file  contain*  th*  individual  call  valuaa  computad  in  RENSCEN 

Th*  rova  b«lov  art  rafarwKad  In  RENSCEN  as  rova  0  through  39  (road  fro*  bottom  to  top)  . 

Each  rov  of  th*  ranga-Doppl*r  map  corraaponda  to  tvo  llnaa  of  output  In  READIN.LSP,  For  axampla, 
th*  valuaa  In  row  39  of  th*  map  ara  containad  in  tha  top  tvo  rova  balov,  atarting  with  (52  9  27 
and  anding  with  .  .  21  19  8)  . 
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46  21  8  19  13  64  68  53  51 
308  190  143  114  19  24  36 
21  11  35  15  57  15  20  20  11 
267  227  155  123  18  27  “  1 
27  26  53  31  3  13  11  29  41  8  26  47„ 
235  263  220  95  14  19  16  35  47 

21  23  10  38  15  13  21  27  26  14  ^ 

273  214  200  166  31  37  41  34  25T 
49  37  21  10  6  22  16  16  79  71  ICfJ 
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Instructions  for  using 
The  VAX/LISP  may  be  entered,  fron  the 
LISP  and  then  <RTN>.  A  prompt  will  appear 


VAX/LISP 

dollar  sign  prompt, 
LISP> . 


by  typing 


NOTE:  (1)  Functions  may  be  entered  at  this  point  by  the  operator 

to  become  familiar  with  the  VAX/LISP  dialect.  However, 
it  should  be  noted  that  functions  entered  at  this  time 
will  be  destroyed  when  the  operator  exits  the  VAX/LISP. 


(2)  To  create  a  permanent  record  of  desired  functions  the 

EDT  editor  may  be  used  prior  to  entering  LISP  to  create  a 
file  identified  by  FILENAME. LSP  and  loaded  as  mentioned 
below.  This  should  provide  a  permanent  record  of  the 
desired  files.  If  the  LISP  editor  is  used  (entered 
through  the  command  (ED  "RENSGEN.LSP")  ),  a  permanent 
record  of  the  file  will  be  provided  by  the  following: 

Enter  GOLD  COMMAND  and  type  EXIT. 

A  prompt  will  appear,  ’EXITING  THE  EDITOR. 

ALL  BUFFERS  WILL  BE  LOST.  ENTER  [Y] 

TO  CONTINUE:1 

Enter  a  Y. 

The  message  ’EXITING. ••’  appears. 

If  any  changes  have  been  made,  a  prompt  appears  ’BUFFER 
RENSGEN.LSP  IS  MODIFIED.  DO  YOU  WANT  ITS  CONTENTS  SAVED 
[Y] :  ’. 

Enter  Y  to  provide  a  record  of  changes. 

Messages  of  ’WRITING  FILE  RENSGEN.LSP’  and 
’WROTE  FILE  ...  RECORDS’  will  be  followed 
by  the  prompt  LISP>. 


RENSGEN.LSP  may  then  be  entered  into  the  VAX/LISP  by  typing  (LOAD 
"RENSGEN.LSP” )  and  then  pressing  <RTN> .  A  message  ’LOADING  CONTENTS  OF 
FILE  RENSGEN.LSP’  will  appear,  all  the  functions  within  the  program  will 
be  sequentially  listed,  a  message  ’FINISHED  LOADING’  and  a  T  will  appear 
if  the  program  loaded  correctly,  and  then  a  LISP>  prompt  is  given. 

NOTE:  At  this  point  any  function  in  RENSGEN.LSP  may  be 

exercised  by  typing  the  function  name  and  appropriate 
argument(s)  enclosed  in  parentheses,  and  then  <RTN>. 


The  program  RENSGEN.LSP  may  be  exercised  by  typing  (REVERBERATION) 
after  the  LISP>  prompt  following  the  loading  of  the  program,  and 
answering  the  questions  that  follow.  To  get  out  of  VAX/LISP  type  (EXIT) 
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after  the  LISP>  prompt.  The  dollar  sign  prompt  will  then  appear. 

If  the  program  has  been  compiled,  follow  the  same  procedure  to  load 
and  run,  but  replace  RENSGEN.LSP  with  RENSGEN.FAS.  To  compile  a  LISP 
program,  enter  LISP/COMPILE  RENSGEN.LSP  after  the  dollar  sign  prompt. 
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FUNCALL 


GENSYM 


PROG 


LOOP 


APPENDIX  F 

Interesting  LISP  Functions 

-  (FUNCALL  fn  al  a2  ...  an)  applies  the  function  (fn) 

to  the  arguments  al,  a2,  ...  an  as  if  the  function  was 
called  directly  (i.e.,  (fn  al  a2  .  ..  an)  ).  The 
FUNCALL  function  is  useful  when  it  is  necessary  to  pass 
a  function  name  as  an  argument  to  another  function.  The 
function  nay  not  be  a  special  form  or  macro.  An  example 
of  the  use  of  FUNCALL  can  be  found  in  the  UP-DATE 
function  of  RENSGEN. 


-  GENSYM  invents  a  print  name  and  creates  a  new  symbol 
with  that  print  name.  The  invented  print  name  consists 
of  a  prefix  and  a  decimal  representation  of  a  number. 
The  number  is  incremented  on  each  call  to  the  GENSYM 
function . 

Example: 

(gensym  ’num)  — >  numl 
(gensym)  — >  num2 

(gensym  5)  — >  num5 

(gensym  ’new)  — >  new6 

GENSYM  is  used  in  the  INITIAL  function  of  RENSGEN. 


-  A  PROG  construct  establishes  a  local  environment  in  a 
particular  function.  The  variables  xl,  x2,  • . •  xn  below 
are  all  local  variables. 

(PROG  (xl  x2  ...xn) 

(setq  xl  1  x2  2  . . .  xn  n) 
labell 

(cond  (....  (return)) 


(t  (go  labe!2) ) ) 

labe!2 

(cond  (....  (return)) 

•  •  •  • 

(t  (go  labell)))) 

Examples  of  the  PROG  are  found  in  many  functions 
in  RENSGEN,  including  INITIAL  and  GENERATE. 


-  (LOOP  forml  forn2  ...  formn  ) 

Each  form  of  a  LOOP  is  evaluated  in  turn.  When  formn 
has  been  evaluated,  then  forml  is  evaluated  again,  and 
so  on,  repeatedly.  The  LOOP  construct  never  returns  a 
value.  Its  execution  must  be  terminated  explicitly, 
using  a  RETURN  or  THROW,  for  example.  LOOPs  in  RENSGEN 
occur  in  the  INITIAL  and  GENERATE  functions. 
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File  reading 


File  writing 


Compiling 


-  To  read  information  from  a  file,  the  file  must 
first  be  opened: 

(make-pathname  tversion  :newest) 

( setq  INPUTFILE  (open  "FILENAME . FILETYPE" )  ) 

Then  to  set  a  variable  (var)  to  a  value  from  the  file: 

(setq  var  (read  INPUTFILE)) 

When  all  information  has  been  read  from  the  file,  the 
file  is  closed: 

(close  INPUTFILE) 

The  REGEN  function  contains  examples  of  file  reading 
in  RENSGEN. 


-  To  write  to  a  file,  again  the  file  must  be  opened: 

(setq  OUTPUTFILE  (open  "FN.FT ; 1 " 

:direction  :output  :if-exists  :new-version) ) 

One  of  the  functions  in  RENSGEN  to  write  to  files  is 
the  REGEN  function. 


-  To  compile  a  LISP  program,  the  command 
LISP/COMPILE  FN.LSP 

can  be  issued  after  the  dollar  sign  prompt.  If  the 
LISP  editor  is  being  used,  the  command  is 

(compile  "FILENAME. LSP"). 

(NOTE:  A  LISP  file  must  have  the  filetype  LSP.) 
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APPENDIX  G 

Data  for  Generation  of  Figures 


Figure  1 


Signal  Types 

- 

None 

Noise  Mean 

- 

20 

Reverberation  Mean 

- 

200 

Reverberation  Shape 

- 

3 

Reverberation  Noise 

- 

50 

Platform  Depth 

- 

200  (m) 

Platform  Velocity 

- 

60  (m/sec) 

Water  Depth 

- 

600  (m) 

Boundary  Return  Mean 

- 

100 

Cutoff  for  Graph 

— 

35  Variable 

Figure 

2: 

Measured  Data 

Figure 

3: 

Signal  Types 

- 

None 

Reverberation  Mean 

- 

200 

Reverberation  Shape 

- 

3 

Reverberation  Noise 

- 

50 

Platform  Depth 

- 

200  (m) 

Platform  Velocity 

- 

60  (m/sec) 

Water  Depth 

- 

450  (m) 

Boundary  Return  Mean 

- 

75  Variable 

Cutoff  for  Graph 

— 

25 

Figure 

4 : 

Signal  Types 

- 

L,FL,0,F0,T,FT 

Signal  Mean 

— 

200  Constant 

Figure 

5: 

Signal  Types 

- 

L, FL,0 ,F0 ,T , FT , Bar 

Signal  Mean 

— 

200  Constant 

Figure 

6: 

Signal  Types 

- 

L,FL,0,F0,T,FT 

Signal  Mean 

— 

200  Variable 

Figure 

7: 

Signal  Types 

- 

L , FL, 0 , FO ,T , FT 

Signal  Mean 

- 

200  Constant 

Noise  Mean 

- 

20 

Figure 

8: 

Signal  Types 

- 

L, FL,0 , FO ,T ,FT 

Signal  Mean 

- 

200  Constant 

Noise  Mean 

- 

50 

Figure 

9: 

Signal  Types 

- 

L , FL,0 , FO, T , FT 

Signal  Mean 

- 

200  Constant 

Reverberation 

- 

200 

Reverberation  Shape 

- 

5 

Reverberation  Noise 

- 

50 

1986 
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Signal  Types 

L, FL, 0 , FO ,T , FT 

Signal  Mean 

200 

Constant 

Reverberation  - 

200 

Reverberation  Shape 

5 

Reverberation  Noise 

50 

Platform  Depth 

200 

(m) 

Platform  Velocity 

60 

(m/sec) 

Water  Depth 

600 

(n) 

Boundary  Return  Mean  - 

100 

Variable 

Figure  11:  Signal  Types 

Signal  Mean 
Noise  Mean 
Reverberation 
Reverberation  Shape 
Reverberation  Noise 
Platform  Depth 
Platform  Velocity 
Water  Depth 
Boundary  Return  Mean 


L, FL,0 , FO ,T , FT 
200  Constant 
20 
200 
5 
50 

200  (m) 

60  (m/sec) 

600  (m) 

100  Variable 


Figure  12:  Data  same  as  Figure  11  with  90  Degree 

Rotation  of  Horizontal  Plane  about  a 
Vertical  Axis 


Figure  13: 


Signal  Types 
Repositioned  Signals 
Change  in  Time 


L, FL,0 , F0 ,T , FT 
L,FL,F0,FT 
10  (sec) 
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